SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSS YYY YYY SSS LLL 000 000 AAA AAA 
SSS vYY YYY SSS LLL 000 000 AAA ABA 
SSS YYY YYY SSS LLL 000 000 AAA AMA 
SSS yyy yYY SSS LLL 000 000 AAA ABA 
SSS yyy yYY SSS LLL 000 000 AAA AAL 
SSS yyy yYY SSS LLL 000 000 AAA AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA AAA 
SSS YYY SSS LLL 000 000 A 
SSS YYY SSS LLL 000 000 AAAAAAAAAAAAAAA 
SSS YYY SSS LLL 000 000 AAAAAAAAAAAAAAA 
SSS vYY SSS) LLL 000 000 AAA 
SSS YYY SSS LLL 000 000 AAA AAA 
SSS YYY SSS LLL 000 000 AAA AAA 
SSSSSSSSSSSS YYY SSSSSSSSSSSS LLELLLLLLLLLLLLL 000000000 AAA AAR 
SSSSSSSSSSSS vYY SSSSSSSSSSSS LELLLLLLLLLLLLL 000000000 AAA AAA 
SSSSSSSSSSSS yyy SSSSSSSSSSSS LLLLLLLLLLLLLLL 000000000 AAA AAA 
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III] NN NN 111] AAAAAA DODODODD PPPPPPPP 77777777 999999 44464 
111111 NN NN HII] AAAAAA DODDDDDD PPPPPPPP 77777777 999999 0000 
I] NN NN I] AA AA 0D DD PP cr 9 0 00 
I] NN NN I] Aa AA DD DD PP PP 77 (99 9 38 
I] NNNN NN I] AA AA 0D DD PP PP 77 (99 99 68 0 
I] NNNN NN I] AA AA 0D DD PP PP 77 «99 99 00 000 
II NN NN NN I] AA AA 0D DD PPPPPPPP 77 99999999 3 6° 00 
II NN NN NN I] AA 0D DD PPPPPPPP 77 99999999 00 
I] NN NNNN I] AAAAAAAAAA DD DD PP 77 99 0000 00 
I] NN NNNN I] AA 0D DD PP 77 99 0000 00 
II NN NN I] AA AA 0D DD PP 77 99 00 00 eee 
I] NN NN I] AA AA 0D DD PP 77 99 00 00 eeee 
III] NN NN IIIIII AA AA DDDDDDDD PP 77 999999 000000 cece 
1111 NN NN III] AA AA DDDDDDDD PP 77 999999 000000 coos 
LL III SSSSSSSS 
LL HII! SSSSSSSS 
LL I] SS 
LL II $$ 
LL I] S$ 
LL I] SS 
LL I] 3SSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLELLLLLLLL III] SSSSSSSS 
LLLLLLLLLL HII SSSSSSSS 
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~TITLE INIADP790 = ADAPTER INITIALIZATION FOR VAX 11/790 


-IDENT 'v04-002' 


—MARAARAAAAASAREALALAL ALAS ASAE ESSE ESSE ER REE REESE RRR E EERE ESTERS RETR ESSEC SES 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH T TERM F SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
oORPORAT on NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONS . 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH 


L 
S NOT SUPPLIED BY DIGITAL. 
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Facility: System bootstrapping and initialization 


Abstract: This module contains initialization routines that are loaded 
during system initialization (rather than Linked into the system). 


Environment: Mode = KERNEL, Executing on INTERRUPT stack, IPL=31 
Author: Trudy C. Matthews Creation date: 22-Jan-1981 
Modification history: 


OOOOCOCCSOOOSOSOOOOSOOSOOSOSSSOSOSOSOSOSOSOSOOSOSOOOSOOOSOSOSOS 


SOOOSOOSOCOCOCOOCOSOSOOOSOCOCOCOSO COCO COOC COCO OCOCOCOO OOOO OOOOOOOOOOOOOOCOO 


OOCCCCCOCSCOOCOOOCOOOOSOSoOSOCSOSOOSOSOOSOOOSOOOOCoOO 
MEW 9 OO NAUE WN O OO NA UE WN 0 OD NOU EWN "OO OONOU 


v04-002 TCM0013 [rudy C. Matthews 10-Sep-1984 
Add $BQODEF missing from TCMO012. 
v04-001 TCMO012 Trudy C. Matthews 07-Sep-1984 


For venus processor: turn on cache before calibrating 
TIMEDWAIT cells (routine EXESINI_TIMWAIT). Store the TIMEDWAIT 
values calculated after cache is enabled in the boot driver's 
TIMEDWAIT cells. This is because the boot driver initially 

Bee te run with cache off, but after booting will run with 
cache on. 


v03-024 TCMO011 Trudy C. Matthews 31-Jul-1984 
Change venus'’s CRD interrupt vector back to “X54 in the SCB, 


PS eH tr tet oe SBP EEE EF EWI 
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and its SBIA Fail vector to “x64. 
v03-023 wMc0001 vg ne Cardoza 30-Jul-1984 
Add H memory to 7 5 list. 
v03-022 TeROOTp [rudy C. Matthews 25-Jul-1984 
Fix a bug in INISUBSPACE for the 11/790 that caused second 


and subsequent unibus adapter spaces to be mapped incorrectly. 
Fix bugs in INI$SCB for the 11/ . wae gondit tonal 
assembly flags in INISCONSOLE for the 11/790. 


v03-021 KDM0100 Kathleen D. Morse 01-May-1984 
Correct address of memory CSRs to be past the 8 missing 
Qbus adapter pages that do not exist. 


v03-020 KDM0099 Kathleen D. Morse 27-Apr-1984 
On a MicroVAX I, if the sysgen parameter TIMEDWAIT is set 
to request no time<prompt ng. then use the last recorded 
Syetee time instead. This is found in EXE$GQ_TODCBASE 
which can be updated with a SET TIME command. 


V03-019 RLRSCORPIO Robert bs Ra pegort 16-Mar-1984 
Begin additions (to INISIOMAP) for Scorpio support. 
Also move ADAPDESC to SYSMAR.MAR, changing it to remove 
the ADAP_GENERAL array. 


V03-018 RLRINIADP Robert Rappaport 28-F eb-1984 
Add refinements to previous update that introduces 
lLonqword array CONFREG. Main y add logic to allow for 
independently assembled invocations of ADAPDESC macro 
to be Linked into this code. This provides possible 
support of BI as a public bus, with user defined nodes. 


v03-017 KPLO100 Peter Lieberwirth 30-Jan-1984 
Implement first step towards a longword-array CONFREG to 
replace current ayte array CONFREG. INIADP will construct 
two confregs, CONFREG and CONFREGL. CONFREGL will be 
a longword array. The high byte will be a VMS-bus 
designation, and the low word will contain the 16-bit 
device type. The BI introduces 16 bit device types. 


When all references to CONFREG have been modified to touch 
CONFREGL, INIADP will be modified again to stop creating 
the byte array. 


While here, map 9 pages of CI register space, up from 8. 


v03-016 KPLOO01 Peter Lieberwirth 17-Jan-1984 
Fix bug in VO3-015 that caused a failure to boot on 750s. 
Specifically, add NDT$_MEM1664NI to ADAPDESC macro. 


v03-015 TCMO009 Srudy C. Matthews 12-Dec-1983 
Add su gore for booting from VENUS corsole device to 

INISCONSOLE. When mapping 1/0 space o:. VENUS, use the 

PAMM to determine if any adaptors are present on the 
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v03-014 KDM0081 Kathleen D. Morse 13-Sep-1983 
Create version for Micro-VAX I. 


V03-013 DWT0126 David W. Thiel s0°Aug= 1985 
Modify EXESINIT_ TODR to set internal time without 
modifying the contents of the system disk. 


v03-012 KDM0062 Kathleen D. Morse 
Add loadable, cpu-dependent routine for 
the time-wait loop data cells, EXESIN 


v03-011 KDM0057 Kathleen D. Morse 15-Jul-1983 
Added loadable, c cBuedependent routine for initializing 


18-Jul-1983 
or _ initializing 
I_TIMWAIT. 


the Sie time, EXESINIT_TODR. 
V03-010 KTA307 erbey T. Altmann 12-Jul-1983 
ston — console init code. 
v03-009 TCM0008 ugy C. Matthews 10-Jan-1983 
pnenge & ty UY. Paty 0 data that oust er*es scoured. after 
is Seisted. Build arrays Ae ABUS_TYPE, and 
ABUS_INDEX that describe the 11/790 UABUS “configuration. 
v03-008 MSHO002 Maryann Hinden 08-Dec-1982 
Add powerfail support for DW750. 
v03-007 re Ralph 0. Weber 24-NOV-1982 
spenge e UBA interrupt services routines prototype so that 
UBAERRADR is correctly computed as an offset from UBAINTBASE. 
V03-006 TCM0007 dy Matthews 10-Nov-1982 
Add 11/790-specific nitiatizetion of ScB. 


v03-005 TCM0006 Matthew 88-Nov-1982 
Initialize field aS AVECTOR with the address of 
each adapter's first SCB vector. 


v03-004 EtASONS T. Altmann 30-0c t-1982 
Move from INI on fect ity rename from INITADP 
put in conditional assem ly, rewrite some routines. 


v03-003 MSH0001 pezemn Hinde 24-Sep-1982 
Change EXESDW780. INT to EXESUBAERR. INT. 

v03-002 TCMO00S Trudy_C. Matthews 10-Aug-1982 
Added support for 11/790 processor. 

v03-001 KDM0002 Kathleen D. Morse 28-Jun-1982 


Added $DCDEF. 
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Sete Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Be Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Fe Ge Ge Ge Ge Ge Ge Fe Ge Se Ge Se Sse Ge Ge Sete Ge Be 
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ee = overenunrrnuizaion ron vox T1790 Heep OES:H] HYDRA s"O* 


184 ; 
} 5 ; MACRO LIBRARY CALLS 
1 5 SADPDEF ; Define ADP offsets. 
1 8 SBIICDEF ; Define BIIC offsets. 
1 SBQODEF ; Define boot vector offsets. 
1 y SBTDDEF : Define boot oey ces 
19 SBUADEF : Define BUA Register offsets. 
00 13 SCRBDEF : Define CRB offsets. 
0 19 SDCDEF ; Define adapter types 
194 SODBDEF : Define DDB offsets 
132 SDYNDEF 3; Define data structure type codes. 
1 § si 0gprF 3; Define nterruet dispatcher offsets. 
00 8 $10790DEF 3; Define 11/790 1/0 space. 
449 9 SPAMMDEF ; Define PAMM register fields. 
00 19 SSBIADEF ; Define SBI adapter register space. 
000 1 SMCHKDEF : Define machine check masks. 
000 0 SNDTDEF 3; Define nexus device types. 
000 1 SPRDEF : Define IPR numbers. 
0000 2 
0000 6 
$33 58 
0900 #8 SPR790DEF : Define 11/790 specific IPR numbers. 
4 42 
0000 549 
000 4 SPTEDEF ; Define Page Table Entry bits. 
0000 48 SRPBDEF : Define Restart Parameter Block fields. 
0000 49 SUBADEF ; Define UBA register offsets. 
0000 59 SUCBDEF : Define UCB offsets. 
0000 51 SVADEF ; Define virtual address fields. 
0000 52 SVECDEF : Define vec offsets. 
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-SBTTL Macros to describe nexus configurations 


The macros FLOAT_NEXUS and FIXED_NEXUS add one or more entries to a 
nexus descriptor table. Each entry is of the form: 


eeeaeaeaeo weer wme ee eceee sos eeease a} 


H PFN of nexus I/0 space : 


peeeanreateaenaeseatuesracoczoase ween eccat} 
: oe -F e-.9 type : 
per nwowmefpe mer oee poner eeeen ones $ 
type = 0 => hae De nexus 
type = non-zero => fixed nexus; type = fixed adapter type 
bus = 0, if SBI; %x80 if BI (this is a VMS-only designation) 


pol elololol el oleololola) 
oOo 
Fo 


device_type: SBI adapters have 8-bit device type codes. These 
device types are simple integers. 


BI adapters have 16-bit device type codes, that are 
subject to the following interpretation: 


- the MSB of the device-type field will be 0 for DEC 
devices and 1 for non-DEC devices, 


- DEC memory devices will have 0s in the high-order 
byte of the device type, 


- non=DEC supplied memory devices will have a 1 in the 
MSB of the high-order byte, and the rest of the high 
order byte will contain Os. 


- The “‘all Os'' and “‘all 1s‘ device-type codes are 
reserved for DEC. 


If SBI type codes were otoaly expanded to a word for purposes of the routines 
in this module, there would be possible conflicts between SBI devices and 

BI memory adapters supplied by DEC. Voila: the bus type. 

Macro FLOAT_NEXUS. 

INPUTS: 


PHYSADR == epretest address of 1 or more contiguous floating nexus 
slots 


SOOSCOCSCOSOOSCSOSOSOSOSOSOSCOOSOOOOOOSOOSOSOS: 
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NUMNEX == number of contiguous floating nexuses, default = 1 
PERNEX == amount of address space per nexus (does not have to be 
specified if NUMNEX = 1) 


-MACRO FLOAT_NEXUS PHY SADR ,NUMNE X=1 , PERNEX=0 
A_= PHYSADR 


Se Se Se Ge Ge Se Ge Ge Ge Ge Ge Fe Ge Ge Be Ge Se Se Ge Se Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Se Ge Se Ge Se Se Se 


P 
»REPEAT NUMNEX 3; For each nexus... 

-LONG <PA/*X200> ; Store PFN. 

al :; Store floating nexus type. 

PA = PA + PERNEX 3; Increment to physical address of next nexus. 


END 
“ENDM = FLOAT_NEXUS 


SONA NEW 9 ODNA UE WN SO OO NAME WIR SO OD NOU EWN O OD NOUS WH OOOnNOuUr 


—DOOODOO9O00000000 OOOO .000 09 09 09 09 09 09 09 09 09 SIN SINS NN SIA A AAA AOAAAO 
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SoOoQooooooooooooo 
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> Macro FIXED_NEXUS. 
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00000000 
00000001 


00000001 
00000002 


00000000 
80000000 
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yes §1/790 1978 


Pa 1 
gurations 1 ” (3) 


1984 90:28:18 EevsLoa.se v 
address of 1 or more contiguous fixed nexus slots 


ress space per nexus 
fixed nexus types, enclosed in <> 


e nexus conf 


3; INPUTS: 

oeroeee = physica 
PERNEX = amount 9 ad 

NEXUSTYPES = a List o 


rag FS aa PHYSADR ,PERNEX=0 ,NEXUSTYPES 

= 

- IRP ati 4 NEXUSTYPES : For each fixed nexus type... 

“LONG <PA/*x206> ; Store PFN. 

»LONG TYPECODE : Store tixed nexus type. 

PA I i + PERNEX 3; Increment to address of next nexus. 
-ENDM = FIXED_NEXUS 


Macro NEXUSDESC_TABLE = declare the beginning of a NEXUS descriptor table 

Ist byte in table (at offset 7 from label) mag tea Length of 

adapter type oy & qrele in CSR's on this bus. CNote for SBI Like 

busses, t next longword (at offset -4) in the 

table contains the Software defined bus type byte defined’ in the 

high order byte of the Lon word. Note for SB 
s 


Like busses, this 
value is 0, for the BI it “80. 


:; Define parameters that may be specified or used in macro invocation. 


BI LIKE = 0 ; BI Like bus. 
SBI_LIKE = 1 ; SBI Like bus. 


SBI_CSR_LEN = 1 4 hengee of cht tte code field in adapter CSR's 
on 


BI_CSR_LEN = 2 : Length “be type sole field in adapter CSR's 


$B1_BUS_CODE = 0 ; Software defined bus code for SBI Like busses. 


B1_Bus srobe = *x80000000 ; Software defined bus code for the Bl. 
»MACRO NEXUSDESC Mag $5 LABEL ,BUS_TYPE=SBI_LIKE 
IF EQ,BUS_ TYPE-S LIKE 


“aYTE SBI _CSR_LEN 
is “LONG  SBI~BUS~CODE 
: IF E0,BUS_TYPE-BI_LIKE 
-BYTE ~ BI_CSR_LEN 
ue “LONG BI7BUS~ CODE 
pa: .ERROR ; UNRECOGNIZED BUS TYPE, NEXUSDESC_TABLE; 
.ENDC 
LABEL: 
.ENDM NEXUSDESC_TABLE 
CSR_LEN_OFFSET = -5 ; Offset before nexus descriptor of 


; byte containing length of adapter 
type field in adapter CSR. 


F 4 
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vouebo2 Macros to describe nexus configurations 1986 
FFFFFFFC 0 63 BUS_CODE_OFFSET = =4 

: 

i : Macro END_NEXUSDESC. 

oy MACRO END .NEXUSDESC 

4 - LONG 

0 7 -ENDM END_NEXUSDESC 
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Offset before nexus descriptor table 
of longword containing software 
defined bus type to be or'’ed with 
adapter type to produce NDT$_ value. 


; PFN=0 => end of nexus descriptors. 


<ce_ 
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ib ; -SBTTL Adapter-specific data structures 
: ; Put a symbol for arrays built by macros in the correct psects. 


[eeeeeeerererereee ADAPTERS roy HARHAARRAAAREE 


nterrupt vector 


-WORD “X8 3; RK RKOG/T I 

1/2 Interrupt vector 
i 
‘ 


“WORD *X7 ; 


BUS_CSR_LEN: 
-BYTE 0 


Stat 4 byte ayy Atay the genges §} sie wveee 
e adapter type t ield 

bus currently pe’ ng ceittadel.. tne. 

roper value fer" the bus of interest is 
apted here, from the current nexus 

cr 4 


tor seple. when we enter subroutine 


OOoOoOoOoooooo 


ou SUS CODE ; Static Reel containing the software 


00000000 : defined bus ype of the bus currently & being 
; configured, the high order byte. 

: groper ve value A. the bus of current interest 
3 copied here, from the nexus descriptor 

; table, when we enter subroutine 


0000 4 -PSECT SSSINITSDATA 
5 ADAPTERS ; Build adapter type code arrays here. 
0000 3 $ -PSECT SSSINITSDATAI ; User contributions in this .PSECT. 
8 ; End of ADAPTERS array. 
6 peerenererertererte End of ADAPTERS array. ekeeeeeeeeene 
peeerereeeeeeeeere NUM PAGES array tttereerereee 
0000 : en pagegrsee? SSSINITSDATAZ. IRE gi 
y u number of pages to map'’ array. 
000000 94 PSECT S$SSINITSDATA3 3; User contributions n this . sett . 
09 a6 | pteeneeeereererere End of NUM _PAGESarray. ekkeereekeuet 
00 Q7 seeneneeeeeeeeeree INIT ROUTINES array t#eeeerennene 
00000000 398 PSECT S$SSINITSDATAG ' 
4 99 INIT _ROUTIN ES: ; Build “address of init routine’ array. 
000000 00 -PSECT SS$SINITSDATAS ; User contributions in this .PSECT. 
000 01 pteneeerereeeeeees End of INIT ROUTINES array RRAHRARARARERE 
000 408 ; 
00 04 ; To add ® new adapter type: 
Bo 82 3 1) Add a new ADAPDESC macro invocation to the end of this List. 
0000000 07 - .PSECT $SSINITSDATA,LONG 
0000 409 
$00 10 ; Default interupt vectors for UNIBUS systes devices 
000 11; (This orrey es is indexed ve ye af Iie d RPBSB_DEVTYP, if the RPB field 
8 \¢ ; RPBSW_ROUBVE {js zero. ROUBVEC is net zero thee RPBS$W_ROUBVEC 
0 13; e. used and this 31°80 is Aa gee at all. RPBSW_ROUBVEC fs set up 
00 14 ; by PQDRIVER. RPBSL BOOTRO is set by VMB to contain thee rome te name in 
00 15 ; ASCII, not the vector number and device type, as it does on full 
Bp 1¢ ; : architecture VAX machines. 
09 18 Boorvector: 
3 
4 
| 
: 
5 
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Fo ot ot at a MM MRMAAAMARUUAUUUAUMAMAAAHn Mmm nM MnMdddddeddeeee 
00900096009 INI NI NINN NNSA AA AAAAAAAUUINMG BRR RRR EE PW 


FPWR OOWONAMU EWN @ O OD NAMEN SO OONAUE AN OODNAU EW OONIG 


SOoooooooooooooooooooosooooooooooooeo 


SOOO oOoCooooooooooooooooososofa 


“SEP=1 SYSLOA.S RCI INIADP .MAR; 3 (4) 
; CONFIG_IOSPACE. 


DIRECT_VEC_NODE_CNT: ; Stoete Longuord that counts the number of 
; direct vectoring adpater nodes that we have 
«LONG 0 3 fun across so far. 
SSSVMSDEFINED = 1 3; Define sym that means VMS system software. 
NUMUBAVEC = 128 3; ALLOW FOR 35 UNIBUS VECTORS ’ 
DAPDESC - ** MUST BE 1ST IN DESCRIPTOR LIST ** 


aac SREM 6OONI NDT. MEMGNI .NDTS _MEM4I,NDTS_MEMIONI, - 
NDT ae gn; NDT$_MEM64EIL,.NDTS_MEM64NIU,NDTS_MEM64EIU, - 
264 NIL, sNDT$_MEM256E IL ,NDTS_MEMZ2S6NIU,NDTS_MEM256EIU, - 


NOT tensaens - 
NUMPAGES=1 


ADAPDESC - MASSbus. 
ADPTYPES=NDTS Me, = 
PAGES=8 


NUMPAGE 
INI TRTN= INI SMBADP 


ADAPDESC = 
ADPTYPES=<NDT$ _ubo. Nove: _UB1,NDT$_UB2,NDT$_UB3,NDT$_BUA>, - 


NUMPAGES= 
INI TRTN= INI SUBSPACE 


ADAPDESC - ti-port m 


ADPTYPES=<NDTS_ nbmo- NoTS™ MPM1 OND TS TmPM2, NDTS_MPM3>, - 
INI TRTNSINE SHPMADP 


ADAPDESC - DR32. 


ADPTYPES=NDTS_ pri2- 
INITRTNEINE SDRADP 


ADAPDESC - C1780 
hh Toe hbo cr, = 


NUMPAGES=9 
INI TRTN=INISCIADP 


"DAPDESC - Koz11 Processor 


ADPTYPES=NDTS_ Kitt 
NUMPAGE S=1 
INI TRTN=IN{$KD211 


weses 


= ADAPTER IN 
Adapter-spec 


Dd 


WOWOUIUL NY — —OMOVIVTT9TTC9T FFwwOoVv 8VT0" 


COOCCOCCOCCOCOCCooOoooooooeoo 
Om td td td od od td ot I IQOOOOOOCO 


COoOoooooooooooooooo 
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; TABLES OF ADAPTER=DEPENDENT INFORMATION 


a 
~O~OoD0D 
—Owoc 


; THE TABLE OFFSETS ARE: 
SDEFINI ADPTAB 

ADPTAB_ ng a “PLB 1 
ADPTAB_ADPLEN: .BLK 1 
ADPTAB_ATYPE: “BLEB 1 


SDEFEND ADPTAB 


TABLES THEMSELVES: 


8 
«WORD ADPSC_MBAADPLEN 
. ATS_MBA 


5 


. 1 
-WORD ADPS$C_DRADPLEN 
‘ ATS_OR 


o 
— 
& 


: 1 
-WORD ADP$C_CIADPLEN 
-BYTE ATS_CT 


PVPVDU SU SVSUSUSUSUSUSISISISISISISIOSIOSIOSITE™ £* E* S*  E E 


2 St | MQOOCDTOOOOCOOCOVOOOOOODO 


OONA UE WIN 0 OD NAME WI OOO NAEP 


Sete Ge Se Bete Ge te 


v04-00 
SIN] ADP .MAR; 3 


S$ TO SET IN IDB 
ADP 


TABLE OF a mabe 
A 108 


# BYTE 
MBA ADAPTER TYPE 


gj OF ene + pan 
UNITS IN D 

; BYTES IN DR ADP 

DR ADAPTER TYPE 


TABLE OF CI CONSTANTS 
# UNITS IN CI IDB 

# BYTES IN Cl ADP 

CI ADAPTER TYPE 


Page 10 
° (4) 


<-_ 


Pe 


O4EC" 


0 
09 

00000000 ' 00000000 * 00000000 '00000000' 
1 


00°00°00°00" 
00°00°00'00" 


0000 


OGooooooocoao 


- ADAPTER 
CPU-specif 


‘ 


FOOCCCOCCOCOCCOCOCOTWWMMDWoOoOooowowowoo 


DS PH PIP IP IPP IPIPIPYIPINYIA) 2 I 


COOOGGCOOCSOSCSOSOSOSOOSOoOOoooO 


=) 
> 
= 


1 
NIGIALtzaTion for var 11/790. e-sep-tage Go:S6:41 YAY/YRE are YOO. 


-SBTTL CPU-specific data structures 
To add ’ = CPU type: 


1 reate a new nexus descriptor table, usin 
FIXED_NEXUS macros. Put an END_NEXUSDESC 


Wiew 


g FLOAT_NEXUS and 
macro at the end. 


CPU_ADPSIZE: 


-WORD ADPS$C_UBAADPLEN+UBINTSZ+<NUMUBAVE C *4> 


; Declare the beginning of a nexus-descriptor table. 
; NEXUSDESC_TABLE LABEL=NEXUSDESC 


; Describe all nexuses on an 11/790 processor. 
SBI_CPU = 1 
BI Cpu =0 
FLOAT_NEXUS - 
PHYSADR=IO790$AL_IOAO, - 
NUMNEX=10790$AL_ANEX 


PERNEX=10790$AL~PERNEX 
END_NEXUSDESC 


; The following 11/790 data must remain in pool after INIADP is deallocated. 


PPARAEARXRLAEAAAAAAAAAA AAAS AA AAA ANIM 


BBE ESS WWIII NII IRPIPONPIPONNPI NINN | — O 


WOO NAU EWN MO OOO NAME WN O OD NAME WN OONONMOONO 


- SAVE 
-PSECT SYSLOA,LONG 


646 ; 

ee 3; These arrays describe the adapters on the 11/790's ABUS. 

649 ABUS_VA:: ; Virtual address of ABUS adapter space. 

$29 -LONG O(4) 

651 ABUS_TYPE:: 

$26 .BYT 0£4) : Type code of ABUS adapter. 
ABUS_INDEX:: 

654 -BYTE OC4) ; If this ABUS adapter is an SBIA, index 

655 ; into EXESGL_CONFREGL and MMG$GL_SBICONF 

$28 3 where this SBI's nexus slots start. 

o2 RESTORE 

659 

; 

; 3 3; Nexus ‘descriptor’ arrays -- these arrays hold the nexus-device type and 

709 ; virtual address of every adapter on the Sy9tes. The arrays, CONFREGL and 

710 ; SBICONF, are allocated enough space to hold the maximum number of adapters 


K.1 
Pua eoPAgn tetanyaarionron me 0/190 esas lets REST) MDL Settee sO H 


~ 11 ; that ren be attached to any cry. When the code discovers how many adapters 
e w 


12 ; actually exist on the system ill at legate space from non-paged pool 
“i ! ; and move a permanent copy of these arrays into that space. 
00000040 00A4 715 MAXNEXUS = 64 
AS 1 CONFREG: ; Byte array of nexus-device type codes.. 
000000E4 a ! enicont LKB MAXNEXUS 
000001E4 ee 19 conrnce. eo MAXNEXUS ; Longword array of VAs of adapter space. 
OO00002E4 O1E4 43 <BLKL MAXNEXUS 3; Longword array of nexus-device type codes 
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2 Message str ~SEP=1 SYSLOA.SRCJ Int ADP .MAR; 3 (6) 
-SBTTL Message strings 
D CR =1 
A tr = 1 
888888 ef 
20 54 rt rt} 49 4 $3 A 9 eASCIZ <CR><LF>/%EXECINIT-F-Insufficient SPT entries/<CR><LF> 
65 69 63 6 66 7 D 46 
69 72 74 6E 6 54 


139 BADUMR: 
731 eASCIZ <CR><LF>/ZEXECINIT=-F-UNIBUS memory does not start at 0/<CR><LF> 


OF -"MNO IO FDNOL LLL LS 


oOo 


oe 
an 
ven 
WAS" QOO TNT TNMMmmmrmlrry 


— 
ws 
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um 
. 


—> 
S~ 
~ 
m 


ze and map nexuses 1 


SEP- SYSLOA. SRC 
-SBTTL INISIOMAP, Initialize and map nexuses 


IADP.MAR; 3 


p++ 
; FUNCTIONAL DESCRIPTION: 


his routine is rigs only once, during system initialization. 
It loops through all nexuses on the systes. testin 
adapter When it finds an adapter, 


or 
: t maps it 40 
initializes it. maps its 1/0 space and 


PUTS: 
BOOSGL_SPTFREL = next free VPN 


; OUTPUTS: 


IANA ANNI AIA ANIAV AAI AAAI 


SNS NN NNN oo 
PDD DP BS BE EAA 


So 
So 
[= 
S 


MMGSGL-SPTVASE = base of systes page table 
EXESGL_RPB - address of reboot parameter block 
RPBSL_ADPPHY(RPB) = PFN of boot adapter space 


RO = SS$_NORMAL 


For each adapter found, its accessible 1/0 spa 
addresses. n ADP (Adapter Control Block) i 
adapter is initialized. 


ce is mapped to virtual 
s built, and the hardware 


The arrays CONFREG (a byte array of nexus-device type codes, defined 
by NDT$_ symbols) and SBICONF (a Longword array of 

virtual addresses that map odapter space) are initialized. Pointers 
to these prrexe are stored in EXESGL_CONFREG and 

MMGSGL_SBICONF. The number of entries in these two parallel arrays is 
stored in EXESGL_NUMNEXUS. 


Since Bl devices have a 16-bit device type code, a new CONFREG array is 
constructed. This is a longword array called CONFREGL. 


Several locations in the RPB that describe the boot device are init'ed: 
RPBS$L_BOOTR1 = holds index into CONFREG and SBICONF for the boot 


adapter 
RPBSL_ADPVIR - holds VA of boot device adapter's register space 
RPBSL_CSRVIR - holds VA of boot device's register space 


-PSECT SSSINITSCODE,QUAD 


INISIOMAP: : 


DOQOOOOCOOOSOOOSOOOOOCOOSOOOCOOOOOOCOO OOOO OOOOOOO 


SOOoOWAAIUAIAI AAAI AAA AINA 


PUSHR = #*M<RO,R1,R2,R3,R4,R5,R6,R7,R8,RI,R10,R11> 


: Set up common inputs to CONFIG_IOSPACE subroutine for the CPU-specific code. 


SOOOOOO OWN AA AAAI N NINA WIN WINI IAI NIWI AANA NIAAA NIAAA NANI 


52 38 
52 80000000 : 
9 0 


Se 
"GF 
*GF 1 


WOOO OOCOOO OO SI IN SNS 


~ 
WR ONAUE WO OONOUS Wil — 


SN 


NOOFPFW— PFO 


FUAMNN 2 


MOVL G*BOOSGL_SPTFREL.R ; Get next available VPN 
MOVL G*MM 5S _SPTBASE,R ; Get base of gystes Pag. Table. 
(R3)CR2),R3 ; Compute SVASPT. 
#9, R2LR ; Convert VPN to VA, 
BISL  #VASM.SYSTEM,R2 ; 
MOVL  § G*EXESGL_RPB,RO ; 
$-5 RPBSC 


Set system bit. 
; Clear index into CONFREG and SBICONF. 
; Get address of RPB 


LADPPiiY(R9) R10; Get PFN of boot adapter space 

MOVAL W*SBICONF>G°MMGSGL_SBICONF ; Set pointers to local copies 
MOVAL W*CONFREG,G*EXESGL CONFREG ; of these arrays for init routines. 
MOVAL W*CONFREGL,G*EXESGC_CONFREGL ; ... 
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vo4~b02 INT TADP 790 1Rxge p= 1 bbe Peisbita PRNCVAS Bacto WOKeOO ve 


‘8 138 pa -SBTTL INITADP_790 

4B 738 : Configure VENUS 1/0 Address Space. 

i 9 : ABUS Physical Address Space: 

48 § ; VENUS's internal 1/0 bus, or ABUS, has 4 slots on it. ABUS adapters 

re Z 3; occupy the following ranges of 1/0 address space: 
Ree 3 : ABUS slot Physical address range 

48 ; through 21FF FFFF 

4B Og 3 9 200 399 through FF FFFF 
048 09 ; ¢ through 2SFF FFFF 
0948 1? 3 600 0000 through 27FF FFFF 
048 812: 

048 i 3 For each adapter attached to the ABUS some aongeer register space 
048 14 ; is defined (addresses 2x08 0000 through 2x08 007F) he first 12 (decimal) 
0048 a? ; longwords of the ABUS ate ter re ‘ater space are generically defined for all 

0048 16 3; types of ABUS adapters: f e remaining re =aser address space is ABUS 
0048 817 ; adapter-specific. The first efor’ re reg ster is the configuration ce ister. 
0048 B18 : The low byte of the’ configuration register identifies the type of AB 
Ree 4 ; adapter, and its revision level. 
0048 i : Currently, only one Pmy nay! is supported on the ABUS: the SBIA, or 
0048 § 3 SB1/ABUS adapter. is a Cooter allows a standard 780 SBI to be attached to 
0048 ; VENUS's ABUS, and allows VENUS to support all standard 780 adapters and 
ares : : 3; peripherals. 
0048 8 : Search the ABUS slots for SBIA adapters, and configure SBI 1/0 space 
Bice 8 Ms ; and SBIA register space for any that are found. 
048 9 i-- 
048 0 ASSUME SBIASL_CR EQ 0 : Assume configuration register is first 
048 31 ; register in SBIA register space. 
58 00100400 8F »D0 bne 3 MOVL #<<10790$AL_I0A0+ 
05 10790$AL_ TOACR>/*X200>, R8 Calculate PFN 
Ope 34 : of first ABUS gent guration register. 
5B D4 OR ee 5 CLRL R11 :; Index into ABUS slo 
O36 ; ABUS_LOOP: 

51 58 9 78 54 3 ASHL #9,R8,R1 ; Get physical addre 3 back from PFN. 
51 OOF FFFF oF CA 28 BICL wCcPA MMSM_PAMADD>,R1 > Only want bits 3 of physical addr. 
00000041 8F 1 DA F 40 MTPR R1 PPRIOOS PAMLOC : negy est PAMM code for this address. 
51 90000040 F DB 6 841 MFPR  #PR790$_PAMACC,R1 ; Read PAMM location. 

51 oo EF ep Ae EXTZV nme CODE, COPAMMSS__ cope, ; Extract PAMM code. 

OF 51 91 7 44 CMPB — NEXM ; Is an ABUS adapter prepentt 
70 13 7 45 BEQL ENO A LOOP : Nothing at this AB 
90000900 oF C A 46 BISL3 apres VALID‘ PTESC _KW,- 3 Temporarily associa e VA “in R2 with 
: n vi 
7F rt: SPRICTINI B*10$ - : Protect ogatnst non-existent memory 
7F 4 #<MCHKSM_NEXM!MCHKSM_ LOG> mach ne checks. 
51 62 00 88 50 MOVL (R2),R1 ; Read abus ate guration register. 
tt 51 SPRICTEND 10$ : End of protected code. 
F 52 INVALID R2 ; Clear TB of temporary mapping. 


INIADP790 
v04~008 

52 50 

51 04 o% 
0010'CF4B 1 

7. 8 

42 

58 

1¢ 
7. i 

00000400 of 
50 8 

56 0020'CF 
86 50 

96 «= 04 
50.10 

F4 51 

0000'CF4B 2g 
5101 

0138 

018 

56 = 0020'CF 
0014'CF4B ‘ 
0100 8F 


58 00010000 8F 
FF60 5B 4201 = (03 


grr BE 
0 1 


30 


@o 
> 


oo 
Woe 


CONF 16.790: 


END_ABUS_LOOP: 
ti) 


WRI OOO UNE WIN 9 OOO NAUE WIN  O OONA UNE WO OD NAME UO OOOO EW 


9 OO 00 00 OO 00090909 09 09 09 09 09 NINN NNN NN NOAA AAAs 


OOO 0090009 00 09 Gd 09 Cd 09 09 GD G9 OD 09 CD CD Cd Cd CD Cd CD Cd Cd CD CD CD CD CD OCD CD CD GD CD CD Cd CD CO CD CODCOD CDCR CDCD 


SOOSCSCSOSOOSOSOSOOSOOOSSOSOSOSSOSOOSOOSOSOSOOOOOOOOSOOOOOOOOOOOOoOOo 


SOooooooooooooooooooooooooo 
RH HW HK HMMM MMMMno OOF MOOOOOOoOOoW®W 
PDN LS SMM NNN WD OW DW nt 
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APTER 

ADP_7 

2 BLBC 

4 : + found an adapter. 
9 EXTZV 
9A MOVB 
A CMPB 
. BNEQ 
. 3 Found an SBIA 
Be: 

A : 
my TSTL 
OA BEQL 
Ag MOVL 
A SUBL3 
0B 

0B4 MOVAL 
089 208: 

089 OVL 
OBC ADDL2 
F ADDL 

SOBGTR 


Fill in 11/790- R 
; call CONFIG_IOSP 


RO,END_ABUS_LOOP 
See if its an SBIA. 


SEp-19be (6:29:18 


AX/VMS Macro V04-00 Page 16 Ih 
SYSLOA.SRCJINIADP.MAR; 3 (8) 


Nothing at this ABUS slot. 


asel acyl {vPe vbeERd ta TYPE,R1,R1 ; Get type field in config reg. 


“A 
#16790 gos. 
END _ABUS sity 


R2 .W*ABUS_VACR11] 

R 

1,R1 

MAP PAGES 

INISSC 

W*NEXUSDESC 

R4, U"ABUS FABEXCR11] 
CONF 1G. 10SP ACE 


CONE 661? ; 
#10790$AL : 
#107 OSAL™ NNER og, ~% 
R8,RO : 
W*NEXUSDESC,R6 3 
RO, (R6)+ : 
#4 Re 
#107 OSAL_PERNEX/*X200,R0 
R1 ,20$ P} 
specif 
CE as a subroutine, to 


Sete Ge Ge Se Ge Ge Ge Se 


#10790$AL _PERABS/*X200,R8 


#3,#1,R11,ABUS_LOOP 


oeear ARRAYS 
#*A<R 
RO 


° 


7R1,R2,R3,R4,R5, RG. R 


Save in —s Saikee array. 
Is this 
Nope, go t. next slot. 


FILL in the 790 nexus descri tor table with the physical addresses 
corresponding to this ABUS 


; If this is the first ABUS slot 
table is already set up properly. 
Get number of nexues on this 

Get PFN of SBI nexus space for 
this ABUS slot. 

Get address of "790 nexus table. 


; Put PFN in table 


Step epett tixed/#loating type code. 
f next m4 ey on this SBI. 
rit’ in entire table 


ic SCB slots and map SBIA register greece. then 


configure this SB 


Save VA of SBIA register space. 

Save PFN of SBIA register space. 
Number of opty to map. 

map SBIA_register space. 

Fill ecific SCB vectors. 
Address of 790 nexus descriptor table. 
Save index pose CONFREG and SBICONF. 
Configure t Bl. 

Restore PFN of SBIA register space. 


; RB <= PFN of next ABUS adapter's 
register space. 
Branch if more ABUS slots. 


reate Comers and SBICONF arrays. 
R8B,R9,R10,R11> 

Set Poitebe. ae 

Return, 


voe-002 


51 62 
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~SEP=1 
~SBTTL CONFIG _IOSPACE 


SYSLOA. sR REI INIADP .MAR; 3 


CONF 1G_JOSPACE 


Inputs: 


Output 


NXT_NEXUS : 
VL 


iven a nexus descriptor table, which describes what ‘‘nexuses’’ or 
340 ts" are available on a — to hold 1/0 adapters, find and 
a alize all adapters on the system. 


R2 = next aval lapie virtual address. to oe sed for mapping 1/0 space 
R35 - address g fore ag BE eet 
n 


R4 - hk ex into CONFR EG” atd SBI CONF arrays (should be 0 the 
rst time CONFIG 1 SPACE is cp) tee 

ne: address of nexus descriptor ta 

R address of Restart Parameter Block (RPB) 

R10 = PFN of boot adapter space 

R1i1= page offset from beginning of SCB; tells which page of the SCB 
to use for this set of nexuses (passed to routines that init ADP) 

82 

R2,R3,R4 = updated 

R9.RI0 R11 = preserved; all other registers potentially modified 

CONFREG = initialized with adapter NDT$ code for each nexus 

SBICONF - initialized with adapter space VA for each nexus 


CONF 1G_ IOSPACE: 
; Main loop. Map and initialize all adapters on system. 


MOVB CSR_LEN_OFFSET(R6),- myve eget? of adapter type field 


w*B0s_ cS : static location. 
MOVL BUS _CODE_OFFSET(R6),- ; Move software defined bus type code 
W*SQ_BUS_ CODE : to static longword. 
; For each nexus... 
MO (R6)+,R8 ; Get PFN of nexus. 
BNEQ TEST_NEXUS ; If PFN non-zero, go test the slot. 
RSB ; If 0, we've found all nexuses. 


; Read configuration register to determine if anything is present at this 
; nexus. 


test _NEXUS: 


BISL3 BO TE Se VALID IPTESC KW,- ; Tonporer ity. esegsjete e ya in R2 with 

SPRTCTINI 60s, - Protect g tpt mh, Ten non- 
<MCHKSM_NEXM! MCHKSM_ Loc}; existent memory machine checks. 

pov (ayer _; : Read adapter configuration register. 
o$ : End of protected code. 

: Clear TB of temporary map 


TWA ‘ 
BLBS" of 4 GET_TYPE Branch if no machine Mm ty occurred, 


: No adapter present at this nexus. 


CLRB W*CONFREGCR4) ; Store ‘‘unknown’’ type in CONFREG 
CLRL W*CONFREGLCR4) : and in CONFREGL 
CLRL R5 ; Use general memory type to map 
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S 


ADDL2 #4,R6 
BRB MAP_NEXUS 


mt ht 90:36:31 yanivay Macro V04-00 


SYSLOA.SRCJINIADP.MAR; 3 


; one page of 1/0 spate. 
‘ Step past type code in nexus table. 


Go map I/0 space for this nexus. 


: Execution continues here if adapter was present. 


GET_TYPE: 
MOVL (R6)+,R7 
BNEQ § GET_GEN_TYPE 


Determine if type in conf 


CMPB Ss #1,W*BUS_CSR_LEN 


BEQL 10% 
MOVZWL R1,R7 
R 20$ 


MOVZBL R1,R7 
BISL W*SW_BUS_CODE ,R7 


10$: 
208: 


; Get nexus-device type from nexus table. 
; Branch if fixed slot. 


prost tog tree slot. Use type from configuration register. 
guration register is 8-bits or 16-bits. 


; Determine length of adapter type 


field in CSR contained in R 


: EQL inplies 1 byte (8-bit) field. 


so use word instruction. 


; Skip eyse instruction. 
; Use by 


e instruction to get type. 


: Or in software bus code. 


: Here R7 has hardware adapter code or'ed with software bus code. 
3; Translate specific nexus device type code into general adapter type code. 


GET_GEN_TYPE: 
MOVB  R7,W*CONFREGCR4) 
RY .W*CONFREGLER4 


CLRL 
30$: 

OVAL W*ADAPTERSCRS],RO 

PUSHAB W*NUM_PAGES 

CMPL = RO, (SP) + 

BGEQU END_NEXUS 

CMPL _——R7, TRO) 

BEaL ©: 40$ 

INCL 5 

BRB 30$ 


40$: 


: Store boot parameters. 


CMPL — RB, R10 
BNEQ § MAP_NEXUS 
MOVL  R2,RPBSL_ADPVIR(R9) 
VL OR -RPBSL-BOOTRI (R9) 
EXTZV #0.#13, = 
RPGS ESRPHY(R9),R1 
MOVAB <8 22 (Re) ER1 ° 
RPBSL_CSRVIR(R9S 


Save nexus-device type in CONFREG. 
CONFREGL also filled in. 
Clear loop index. 


Get address of adapter bype code. 
Push addr of end of ADAPTERS array. 
See if we went beyond array. 
unrecognized adapter, do not map. 
aT Ese’ type match? 

If EQL yes, adapter type match. 
Increment (oop index. 

Look at next adapter. 


Does PFN match boot adapter's PFN? 
No; continue. 
Store VA of boot adapter space. 


; Store boot adapter nexus numb 


er. 
Get offset into UNIBUS/QBUS 1/0 page. 
Set VA of UNIBUS/QBUS registers. 


> RS/ general adapter type; index into ‘‘general’’ adapter arrays. 


3; For each adapter 


| —————— —= — — 
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v04-002 CONF 1G_IOSPACE -SEP=1984 SYSLOA.S REI! INIADP.MAR;3 (9) 
1 2 1 t§ ; the # of ages specified in ADAPDESC macro 
! 3 i tz : to initialization routine specified in ADAPDESC macro 
199 1045 eat 
ayes" F4GC—~“C“‘“S ge 199 1 29 MOVL R2,W*SBICONFCR4) i; Save VA of adapter agese in SBICONF. 
1 O00'CF4 C O19F 1051 MOVZWL wehuM PAGESCR5],R1 3; Get number of pages to map. 
f 10 143 1 26 BSBB MAP ; Map the I/0 pages 
51 O000'CF4 D 1A7 105 MOVAL uNiniT. ROUTINESCR5],R1 3; Get address of initialization rouvine. 
61 D 1AD 1054 TSTL (R ; Init et = routine specified? 
046 1AF 4 2? BEQL END ye: ¥S 3; Branch i 
00 8141 +16 18) ! § we Oe a(RT)CR : Call initial ization routine. 
2 BS 185 1 38 Fs INCL R4 ; Increment CONFREG and SBICONF index. 
FF51 1 + 44 ! 27 BRW NXT_NEXUS ; Go do next nexus. 
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yO4-002 CREATE_ARRAYS 11-SEP-1984 90:38:7) YEYSLOA. SRETINYADP RAR; 3 ° (9) 
134 ] § -SBTTL CREATE_ARRAYS 
184 } ; CREATE_ARRAYS 
184 } 5 $ Move the local CONFREG and SBICONF arrays into non-paged pool. 
1BA 1072 ; Inputs: 
1BA 1075; 4 = Number of nexuses on the system. 
184 ! is 3 CONFREG and SBICONF have been initialized. 
1BA 1 6 ; Outputs: 
1BA 1077 ; RO = R5 destroyed 
1BA 1 4 3 EXESGL_CONFREG points to a copy of the CONFREG array in non-paged pool 
1BA 1079 ; MMGSGL_SBICONF points to a copy of the SBICONF arrey in non-paged pool 
184 } ? 3 EXESGL_NUMNEXUS contains the number of nexuses on the system 
1BA 1 : 
1BA 1 5 CREATE_ARRAYS: 
00000000'GF 54 D0 QIBA 1084 MOVL RG A145 NUMNE XUS ; Store number of nexuses on system. 
51 OC A644 DE O1C1 1085 MOVAL 12(R4)CR4],R1 ; Allocate n bytes for CONFREG plus 
106 19e6 : 4m bytes for SBICONF + header 
51 6144 3 16 108 MOVAL (R1)CR4),R1 ; Another 4n bytes for CONFREGL. 
0317 1CA 1088 BSBW ALONPAGD ; Get pool for CONFREG and SBICONF. 
§¢ C 01CD 1089 CLRQ (R2)+ ; Clear out unused 
ag 1 BO 1CF 1090 MOVW R1,(R2)+ ; Set in size 
82 0763 BF B80 1D¢ 1091 MOVW  #<OYNSC_CONF@8>!DYNSC_INIT,(R2)+ ; Set type and subtype 
Q0000000'GF 6 9 0107 1 35 MOVAB Re? GG XESGL.CONFREG ; Store address of gyeten CONFREG. 
6244 9E O1DE 109 MOVAB (R2)CR4I,R1 : Two steps to CONFREGL, 1st, SBICONF, 
00000000'GF 51 DO O1E2 109% MOVL 1 GMMGSGL SBI CONF : Store address of system SBICONF. 
00000000'GF 6144 DE O1E9 1095 MOVAL (R1)CR4],G*EXESGL_CONFREGL ; And address of system CONFREGL. 
14 BB O1F1 1096 PUSHR #*M<R2 ré> 3; Save pool address and nexus count. 
62 OOAG'CF 54 28 O1F3 1097 MOVC3 RG, W*CONFREG, (R2) : Copy CONFREG to pool. 
14 BA O19 1098 POPR #*M<R2,R4> ; Retrieve pool address and nexus count. 
51 54 04 C5 O1FB 1099 MULL3 #4,R4,R1 ; Number of bytes in SBICONF. 
—E 51 DO OFF 1100 MOVL. R1,-(SP) : Save, SBICONF size = CONFREGL size 
6244 OOE4'CF 51 28 02 1101 MOVC3 R1,W*SBICONF,(R2)CR4) 8 copy SBICONF to pool. 
63 onester «S138 050 1108 MOVES RIW*CONFREGL,(R3) Copy CONFREEL to moot” RS is outoct: 
E4'CF ,w* P 3; Copy © pool. Ss outpu 
0212 1104 : from SBICONF MOVC5, so SBICONF and 
021 1382 3; CONFREGL must be adjacent. 
0212 11 $ 
05 0212 110 RSB 
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00000000 ' GF 


90000000 8F 


*0000600" GF 
00000000 ' GF 


oe 51 


51 O2E4°CF 


58 
00000000 ' GF 


MAP _PAG 
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-SBTTL MAP_PAGES 


: INPUTS: 

3 R1/ Number of pages to map. 
: ny VA of page to map 

; RB/ PFN of page(s) to map. 
OUTPUTS: 


MAP _PAGES: 
BISL3 
INCL BF 
MOVAB 5 2(R2) »R2 
INCL  G*BOOSGL_SPTFREL 
CMPL G*BOOSCL-SPTFREH, - 
“BOOSGL~SPTFREL 
BLEQ ERROR_HACT 
SOBGTR R1,MAP_PAGES 
RSB 
ERROR_HALT: 
W*NOSPT,R1 
ERROR_HALT 1: 
CLAL R11 
G*EXESOUTZSTRING 
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1) 


VA of system gage “table entry to be used. 


R2,R3 updated; R1,R8 destroyed; all other registers preserved 


#<PTESM_VALID!PTESC_Kw>, RB, (R3)+ 


Next VA- 
Next free entry. 
Check for no more system page 
table entries 
Branch if out “of SPTEs. 
fee § another page. 
done. 


Set error message. 
pasate console terminal. 


Output error message. 
keakk FATAL ERROR feeeeee 


1 
V 


AP 
SC 
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IF=$EP=1984 18:25:18 ESYSUOA.SRESINYADPcRAR:3 


-SBTTL INISSCB 
FILL in 11/790-specific SCB vectors. 


INPUTS: 
- Which SCB page is used by this SBIA 
ABUS_VACR11] - Address oft is SBIA's reg ster space 


OUTPUTS: 
Sb0-specitic 9c8 vectors are filled in; they will point into a 
JSB table, which transfers control to the segcopriate interrupt 
handling routine with the address of the SBIA's register space 
gn top of the stack (so the interrupt routine ore know which SBIA 
nter ruses) « After this routine executes, each 790-specific SCB 


vector is set up as shown below: 
SCB SYSLOA790 

perme gg > Raeeeapedconaaertt mes ; 

— >! JSB int_rtn --{---4 

eoeceee <SBIA reg adr>} 

decntennt | Bb 
| eee eeeennnenn--- \<==4 
int_rtn H 


Se Se Se Ge Ss Ge Se Ge Ge Ge Ge Se Ge Ge Ge Ge Se Se Ge Ge Se Ge Se Ge Ge Se Ge Ge Ge 
+ 


aa 
+ 


ALL registers are preserved. 


Macro SCBVEC. 


This macro defines a table of <SCB vector, interrupt service routine> 
pairs. This table is used to initialize the 11/790-specific vectors 


in the SCB. 
-MACRO SCBVEC VECNUM,SERVICE_RTN,SYS 
«WORD <VECNUM/4> ; Longword offset from start of SCB page. 
«LONG <SERVICE_RTN-.> ; Store self-relative offset service 
3; routines defined in SYSLOA790. 


NUMVECS = NUMVECS + 1 ; Count number of vectors to load. 
-ENDM SCBVEC 


> List the 11/790 SCB vectors to be directed to the JSB table. 


‘ NUMVECS = 0 ; Number of SCB vectors to load. 
INISL_SCBVALS: 3; Define SCB vectors and their 


; interru i handling routines. 
SCBVEC VECNUM=<*X58>, SERVICE RT =EXESINTS 
SCBVEC VECNUM=<*X5C>. SERVICE RINSEXESINTSC 
SCBVEC VECNUM=<*X60>, SERVICE -RTN=EXESINTS 


1 
Wea jtRRege Maoazarion von van 17F00 jeeps Oas:8) NOE Settles 


0000 } } 9 -PSECT SYSLOA,LONG ; This data stays after INIADP is gone. 
18 «1 ALIGN LONG 
18 #4 § INISL_1OAVECS: 
18 1204 «REPT 4*NUMVECS ; 4 pages of SCB * number of vectors/page. 
18 1205 - ALIGN ; $CB routines must be longword aligned. 
18 1 $ JSB , one Ln ; Init to error halt. 
1 1 ONG ; Reserve space for address of IOA regs. 
1 ! 8 ~ENDR 
0000 } ! -PSECT SS$SINITSCODE 
: 1212 INISSCB: 
1F BB 121 PUSHR #*M<RO,R1,R2,R3,R4> ; Save some registers. 
50 £9 AF DE 38 1214 MOVAL  INISL_$CBVAL$,RO : Get address of SCB value table. 
51 ee teh Of F 1215 MOVA INISL pOAvESS “RI ; Get address of JSB table. 
5 § ..-¢ $6 ! 1$ MULL #<NUMVECS*12>,R11,R2 3 et b te offset into JSB table for 
3 5 age. 
"» fF & oA 1 18 ADDL R2,R1 3; RI potnte te ist JSB table entry 
6D 121 3; for this SCB page. 
52 90009000" sf p 9p 1220 MOVL gcexe sel SCB,R2 3; Address of SCB. 
5 B 98 4 1221 ASHL #9,R11,R3 ; Turn S$CB page offset into byte offset. 
52 > € re : ¢ ADDL R3,R2 3 Gs Points to beginning of correct 
3 age. 
53 03 00 A: : : MOVL #NUMVECS,R3 3; Get Puaber of vectors to load. 
7E 1 3 
, $ ; RO walks chrough a table of the form: 
7E 1228 ; «WORD lLongword offset into S(B> 
7E 1229 ; -LONG <self-relative offset to SCB interrupt handling routine> 
3 } ? ; where each JSB instruction is longword aligned. 
7E 1 § ; R1 walks through a table of the form: 
7E 1 r JSB avinterrupt handling routine> 
3 y address o register space 
4 ! : LONG <add f SBIA t > 
43 ! § ; R2 points to the beginning of the SCB page for this SBIA. 
7E 1 3 ; This Loge per fores the following functions: 
m4 3 (1 ills in the SCB vector to point to one of the JSB instructions 
7E 1240; n the IOAVEC table. 
7E 1241; (2) Fills in the destination of the JSB ingtruct ion to point to the 
7E 1 4g 3 correct interrupt handling routine in SYSLOA790.EXE. 
7E 12435 ; (3) Fills in the longword after the JSB instruction with the address 
7E 1244 ; of register space for this SBIA adapter. 
FE }5ce * 
=o 23 FILL_IN_SCB: 
54 80 0 rf 1 +3 MOVW (RO)+,R4 ; R4 <= Longword offset into SCB page. 
6244 01 Al E 124 MOVAB 1(R1),(R2)CR4) 3; Point SCB vector t9 JSB instruction 
2 1250 3: (+1 te execute on interrupt stack). 
02 Al B040 9 1251 MOVAB a(RO)CROJ,2(R1) : Fill in destination of JSB instruction. 
06 Al 000" CFS D 1 § MOVL ¥ Agus VAERI1].6(R1) ; Put address of IOA regs after the JSB. 
A DE 1 MOVAL 4(RO),R 3 Step to next entry in SCB table. 
1 ¢ Al D 97 1254 MOVAL 1ecRis Rt : Step to next entry in JSB table. 
£0 53 =F 3 ! 2 SOBGTR R5,FILL_(N_SCB ; Repeat for all vectors. 
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INIADP790 = ADAPTER INITIALIZATION FOR VAX 11)$90 16-SEP-1984 00:56: AX/VMS Macro V04-00 Page 24 
VO4-008 IN SSB 198 96:39:18 a 73) 
special case because we don't want the address of the SBIA registers on the 
stack when we vector to the powerfail code. 


° 
11-SEP- SYSLOA.SRCJINIADP.MAR; 3 
7 ; Take care of a special case the yector at offset “x54 into venus. CB is 
$s condit l 
MOVAB woe ; Load address of powerfail routine. 
: 5% #*M<RO,R1,R2,R3,R4> 


the SBI FAIL vector. Th on is handled as a powerfail. This is a 
66 


00000001'GF 9E 
at 


1 

1 

1 

1 

1 

1 

1 
BA A6 1 
5 AB 1 
Ag 1 


INIADP790 ADAPTER INITIALIZATION FOR VAX £11990 16-SEP-1984 00:56:31 YAX/VMS Macro Vv04-00 Page 25 
vou~002 INISUBSPAC ACE 19=8Ep=19 4 10:38:48 SYSLOA. SRE REI INIADP.MAR; 3 ne 3) 


a ] = -SBTTL INISUBSPACE 
A , : Map UNIBUS space; initialize UNIBUS ADP. 
AJ 1073 ; INPUTS: 
AQ 1274 ; R2 - VA of next free system page 
AY 1275 ; RS = VA of system page table oy? to be used to map VA in R2 
A9 1 6 : R4 - penus identification number of this adapter 
4 } 4 ; 78(R6) = PFN of this UNIBUS adapter's register space 
Ao 1 ag ; OUTPUTS: 
AY 1 ? 3 wt US $s space is mapped 
AD 1 3 ISUBADP is called to build an ADP block and initialize UNIBUS 
AQ 4 § 3 st chee hardware. 
O2A9 1 3 
BS TER 
- ! § INISUBSPACE : 
58 O1E4'CF44 DE 5 AJ 1290 MOVAL WComrnest Cad. R8 3; RB => CONFREGL slot. 
58 $8 9 00 cf O2AF 1291 EXTZV #0, oR8 : Get UBA number. 
5 5 09 8 8 * ! 38 ASHL #9R ‘i ; Position UB number. 
BB 1304 
B8 1309 
0588 1319 
51 F8 A6  QOOOOOFF 8F CB O2B8 1321 BICL3 #*XFF,-8(R6), of start of SBI addr space. 
58 09F0 C148 9E O2C1 1 ¢ MOVAB W<clO790SAL “Vaosr+~o760b0>/-xo003 RT ERE. R8 . 
0 4 ! } ; Calculate PFN of Unibus 1/0 page. 
C7 +1330 
51 10 g8 02C7 1331 MOVL #16,R1 3 umber of pages to map (UB/Qbus space). 
FF46 0 +. ’ ¢ BSBW MAP_PAGES :; Map I/0 pages. 
cD , : Call adapter initialization routine. 
stb 1 § : BSBW INISUBADP ; Init ADP block. 
02CD 1 3 RSB 


fmm 
2 
_ 


INLADP790 -A 
vo4-002 IN] 


a) 


1 
ALIZATION FOR VAX 111990 16*SEP*1986 00:56:31 VAX/VNS Macro v0s-00 > 
Ub ADPLAND GNIYIALIZE UDA 1iaSePeiobe VesSOth FONSVAS Bacto VOR OO a:s | Page (36, 


-SBTTL INISUBADP = BUILD ADP AND INITIALIZE UBA 


; SUBADP ALLOCATES AND FILLS _IN AN ADAPTER CONTROL BLOCK, INTERRUPT 

: PATCHER AND CONNECTS THEM TO THE PROPER SCB VECTORS. A CALL IS 

; N MADE TO UBASINITIAL TO INITIALIZE THE ADAPTER HARDWARE. 

: INPUT: 

3 R4 = nexus identification number of this adapter 

3 R11= offset from beginning of SCB to correct SCB page for this adapter 
I 


CD 1 
CD 1 
cD 1 
cD 1 
CD 1 
CD 1 
CD 1 
CD 1 
cD 1 
cD 61 
CD (1 
eS } NISUBADP: 
OFF 8F BB 8 : PUSHR #*M<RO,R1,R2,R3,R4,R5,R6,R7,R8> ; SAVE RO-R8B 
+ ! ; Allocate and initialize Adapter Control Block (ADP). 
51 0019'CF f D1 1 f MOVZWL W*CPU_ADPSIZE,R1 3; PICK UP LENGTH OF ADP 
0208 0 D6. (1 BSBW 3; ALLOCATE SPACE FOR ADP 
08 A 51 B0 d9 1 MOVW R1,ADP$W_SIZE(R2) 3; § IZE INTO ADP BLOCK 
OA A 01 90 8 DD 1 MOVB YN ADP, =- ; AND SET TYPE OF BLOCK 
el 1 ADP$B_ TYPE (R2) 
OE A2 01 BO O2E1 1 MOVW WA BA, - ; SET TYPE OF ADAPTER 
O2E5 1 6¢ ADPS@ ADBT YPE(R2) 
62 QOES'CF44 iv) 8 ES 136 MOVL W*SBITONFCR4], - ; SET VA OF CONFIGURATION REG 
EB 1364 ADP$L_CSR(R2) 
OC A2 54 BO 0 44 : rH MOVW R4,ADP$W_TR(R2) ; SET TR NUMBER FOR ADAPTER 
50 14 A2 DE 8 EF 1367 MOVAL ADPS$L_DPQFL(R2),RO ; ADDRESS OF DATA PATH WAIT QUEUE 
60 50 DO O2F3 1308 MOVL ° ; INIT QUEUE HEADER 
04 A0 50 00 8 re 138% MOVL RO,4(RO) 3 
50 30 4g DE O2FA 130) MOVAL ADPS$L_MROQFL(R2),RO ; ADDRESS OF MAP WAIT QUEUE 
60 5 dO Fe 1 es MOVL RO, (RO) 3; INIT QUEUE HEADER 
04 AO 50 dO 8 137 MOVL RO,4(RO) : 
04 A2 D4 5 137% CLRL ADPS$L_LINK(R2) ; ZAP ADAPTER CHAIN LINK 
FCFS5* 0 bs ! o BSBW ADPLIRK 3; LINK ADP TO END OF LIST 
! 7 : Initialize adapter interrupt vectors in System Control Block. 
58  00000000'GF dO : } 23 j MOVL G*EXESGL_SCB,R8 ; GET SCB ADDRESS 
5 18 
53 3 4 re 12 1 ASHL #9,R11,R3 ; Turn SCB page offset into byte offset. 
5 »°< 16 1384 ADDL R3,R8 ; Set to beginning of correct SCB page. 
19 1 ; : Fall into 11/780 code. 
19 1 
ee 
19 1391: Following ASSUME breaks if the ADP length is not a multiple of 4, thereby 
1° ! 35 3 causing the vectors to NOT be long word aligned. 
+ ! oe ASSUME ADPSC_UBAADPLEN/4*4 EQ ADPS$C_UBAADPLEN 
53 eee" § 9 19 1 38 MOVAB ADPS$C YRAADPL EMcUBINTSE CRE) BS ; LOCATE VECTORS 
10 A D 1 139 MOVL  R3,ADP$L_VECTOR(R2) - AND RECORD IN ADP 
60 A2 FFFE 8F 8 2 1398 MOVW #*XFFFE,ADPSW_DPBITMAP(R2) 3 MARK DATAPATHS 1-15 AVAILABLE 
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52.54 
53 _00000000' GF 
54 0000°CF 
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D ADP AND INITIALIZE UBA 1 19-865- 138 98: 36: ib YeYSLOA. SRCJINIADP.MAR; 3 
PUSHR #TRCROCATGRZ-RS,RG.R5> 7 SAVE ROV cREGLSTERS 
MOVCS #UBINTSZ U*yeaINTBASE  cRS) OPY INTERRUP T cove 
POPR #"M<RO.RI.R2.R3,RG,R5>; RESTORE move REGISTERS 
EXTZV #0,84,R4 Re : Use low 4 2 ts of nex us number. 
MOVAL “x{00(R85C—R4I,RO : COMPUTE 1ST VECTOR ADDRESS 
OVL RO,ADPSL_AVEC OR(R3) : SAVE ADDR OF ADAPTER SCB VECTORS 
MOVAB OBAINTZ+1(R ),(RO)  : STORE VECTOR FOR BR4 
MOVAB B*UBAINT5+1(R ) 4 (RO) t STORE VECTOR FOR BRS 
MOVAB B*UBAINTG+1(R fs g8(RO) + STORE VECTOR FOR BR 
MOVAB B*UBAINT7+1(R3).192(RO) : STORE VECTOR FOR BR 
MOVL ADPSL CSR(RE) rb : GET UBACSR ADDRESS 
ADDL /B*OBAINTGREL(R3) + ADD CSR VA 
APOE OROCB*UBAINTSREL (RSD Bict INSTRUCTIONS 
ADDL R ‘BPUBAINTZREL(R ) : IN THE INTERRUPT DISPATCHERS 
OVI Re ,UBAINTADP(R3) 'SET ADDRESS OF ADAPTOR CONTROL BLOCK 
ial gUBAERRADR(R3) ; ; SET ADDRESS OF ERROR HANDLER 
P$L L SUBASC SCB(R2) ; SAVE 4 SCB VECTOR CONTENTS 
MOVAB B*UBAINT5S+1(R3),- 
P$L_UBASCB+4(R2) : DITTO 
MOVAB B*UBAINT6+1(R3) ,- 
P$L_UBASCB+8(R2) : DITTO 
MOVAB B*UBAINT7+1(R3),- 
MOVL ape UBASCB+12(R2 ; PABY ADP AD DRESS 
mut SBEOSSSS22eR cn, TE RE wre 
JSB G°RMGSSVA CHK : ADDRESS OF SPTE THAT MAPS ADAPTER 
MOVL = (R3), ADPSL _UBASPTE(R4) : SAVE CONTENTS OF SPTE MAPPING ADAPTER 
MOVL <B243( TR pcants : CONTENTS OF SPTE MAPPING 1/0 SPACE 
MOVL R4,R : COPY ADP ADDRESS BACK TO R2 
MOVAL G*UBASUNEXINT,R3 : GET ADDR OF UNEXP INT SERVICECIN EXEC) 
MOVAL W*UBASINTO,R4 : GET ADDR OF SPECIAL VECTOR 0 ROUTINE 
: INIT UB VECTORS TO UNEXPECTED INTERRUPT SERVICE 
RUE ABPHLGHECTORCR) Os SADE OOH 0 
MOVZBL #ciRUBAVEC- -1>,R1 : REST OF VECTORS 
10$: MOVL : FILL VECTOR WITH UNEXP INT 
SOBGTR R1.10$ : FILL ALL VECTORS 


aan f 


N 1 
INIADP790 = ADAPTER INITIALIZATION FOR VAX 111499 16-SEP-19 AX/VMS Macro V04-00 Page 
y04-002 INISUBADP = BUILD ADP AND INITIALIZE U aie Seer obe 99: 36: i} SYSLOA.SRCJINIADP.MAR; 3 . (98) 
cD (1 w check for an yareus memory that may be on the adapter. ficse ye must 
CD (1 qi as able all th e Owl BUS Map Re testers so, that the re is + con ft ice in 
CD 1654 : hich memory a respon Then we cheek ahh 6 takb b of potential peqere in 
CD 1655 : Kb chunks, since acne disable bit on th UBA represents 16 UMR 
CD 1 § ; 8Kb of mengry. t he number of registers is stored in the ADP and the 
44 ! 38 : corresponding number withdrawn from the UMR map in the ADP. 
CD 1659 ° 
56 4 08 i aoy. sors... CSR(R2) ,R6 ; 2 p= Agen 2 ne, dtecha 
; Zero out number 9 o disable 
57 08 Ag ae ha 8F C3 4 ! ei Suet $ ait $59 (50) 87 ; ns = of east page of yaieu US 
: = 0 mappin 
54 20 A> 9000800 BF 0 1864 SUBL Aste: 2032 6h Ré i RG = PFN of first spege of UNIBUS 
68 ODD E 199 PUSHL ; Save contents of 
5354 »? EB 1668 MOVL Re 83 3 gop starting PFN 
55 iF 0 OSE 1669 MOVE —-#34,RS ; 31 Bxb chunks to test 
Fi 1670 50$ ym, 10 R? 3; Invalidate T 
90000000 HA C9 F4 1671 BISL #<PTESM_VALID!PTESC_KW>,=- 
98 3 4 19°6 neal ah gre? : Rap each Page. of UNIBUS 
: ress to 
FBFE' 4 FF 1674 BSBW EXESTEST_CSR : Validate it. 
OD 5 E9 rtf} 1675 BLBC ag iy : Not there 
54 65 D1 0405 1676 CMPL R3,R4 : First time in? 
+9 0408 1677 BEQL 46-46 0$ ; Yes, skip next test 
1 oO 40A 1978 TSTL R1 ; Any registers already? 
3A 40C 167 BEQL 80$ : No, memor ane _ Seere at 0 
51 19 Al 9E rtf} 1680 60$: MOVAB 16(R1),R1 : Yes, up the 
54 10 A4 4 412 1681 70$: MOVAB 49 °802 -RS : Map Next akb 2188512) 
o8 55 =F 8218 1986 SOBGTR R5,50$ ; Loop until done 
68 8EDO 041 168 POPL (RB) : Restore ote, contents of SPTE 
041C 100? a R7 3; Invalidate T 
0256 C2 51 B60 eld + § R1,ADP$W_UMR_DIS(R2) 3 Record number disabled 
$4 4 1889 ; Initialize fields for new UBA map register allocation. Make it appear 
be 4 1690; that we have one contiguous array of 496 available map registers. 
424 1691; To ee this we set ADPSL_MRACTMDRS to one (the number of active 
424 1998 $ ma “ARES des riptors fe toe ates tact sent queue areas) 
424 1693; ADPSW ARNREGARY (0) e number of registers in this 
424 1694 ; contiguous range) and ADPSEREGARY £05 to 0 (i.e. the first register 
r ; 1992 : in the range is register 0). 
5C A2 9 D 424 1688 MOVL 1, ADP$L_MRACTMDRS(R2) 1 active map tnge ef £9 or 
64 A2 O1FO BF «510 AS (0428 1 SUBU3 R1,#496 ADP$W_MRNR REGARY (R2) ; for ar ange of % sregisters 
O15E Ce 31 BO (Ode 17) MOVW RT, ADPSW “RREREGARY (R2) ; Starting at ero. 
A A MNEGW »ADPSW™ MRNFENCE(R : so in ong Pe ch precee 
FA 01 AE 0484 1711 EGw #1 ,ADPS ENCE(R2) : Also init 'f which d 
015C C€ 01 AE " : rig MNEGW #1. ADP$W~ -MRFFENCE(R2) ; the two descriptor arrays. 
" 4 Har 3; Initialize adapter hardware. 
54 62 08 4 1218 MOVL ADPSL CSR KR2) R4 3 Get Gsh address to init 
FBBD' 440 171 BSBlW UgAS! RIT And initialize adapter 
FF 8F A POPR #*M<RO,R Mi R3,R4,R5,R6,R7,R8> ; Restore registers 
OFF 8 4435 171 0, 2,R3,R4,R5, 6: r 8 i 
5 rf ays RSB 3; Return 
448 17 § ; 
r? 1 ? :; Error if UNIBUS memory not start at location 0 


1 


ATION FOR ax 1390 y, if. SEF =]384 99: 3$: i} AX/VMS Bae ro V04-00 Page (fl) 


ZAT 
LD ADP AND INITI Mile “SEP=1 SYSLOA. SRC JINIADP .MAR; 3 


INIADP790 = ADAPTE T 
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Hoo 
INITIALIZATION FOR V ax 4 1/79 -1984 AX/VMS Macro V04-00 Page 31 
= BUILD ADP AND INI YI thLiz E pa 19-$6F- 1382 9: 38: i} YeySLO OA. SRCJINIADP.MAR; 3 9° ta) 
17 20$: HOVAB B-VECTABLRGI, RS :GET ADDRESS OF INTERRUPT VECTO 
1 MOVL [GET ADDRESS OF ADAPTOR CONTROL *atock 
17 UBAINTADPS s-UBAINT BASE. 5 [OFFSET TO START OF LOADED ¢ 
1 TERROR ROUTINE IN ADPERR bo” 
1 UBAERRADRS, “cUBAINTBASE~4 
et enon 
1795 .ALIGN LONG : LONGWORD ALIGN VECTO RS 
1296 VE vec : END OF INTERRUPT COD E. START OF VECTORS 
1797 UB tie. -UBAINTBASE : SIZE OF UBA INTERRUPT CODE 


@awoworr>y 


1 
INLADP790 - TER INITIALIZATION FOR VAX x f1}¥o0 SEP-1984 AX/VMS Macro V04-00 Page 32 I 
yO4-002 IN ADP = BUILD ADP AND INITIALIZE MBA a 1% Hitt 99: 36: i} YeYSLO OA.SRCJINIADP.MAR; 3 . dd $' 
15 ~SBTTL IN] $MBADP = BUILD ADP AND INITIALIZE nea E 
1 ~SBTTL INISDRADP = BUILD ADP AND INITIALIZE DR32 E' 
ai -SBTTL INISCIADP = BUILD ADP AND INITIALIZE C1 4 
: INISMBADP I$ CALLED AFTER MAPPING THE REGISTERS FOR A MASSBUS ADAPTER. E! 
9 ; AN ADAPTER CONTROL BLOCK IS ALLOCATED AND FILLED. A CRB AN F 
; ALSO ALLOCATED AND INITIALIZED. THE ADAPTER HARDWARE IS THEN INITIALIZED F 
; ; BY CALLING MBASINITIAL. 2 
4 : INISDRADP IS CALLED AFTER MAPPING THE REGISTERS FoR THE DR32 I| 
5 ; ADAPTER. THE ADAPTER CONTROL BLOCK, CRB, AND IDB ARE ALLOCATED I| 
§ 3 AND INITIALIZED, THE ADAPTER HARDWARE 1§ THEN INITIALIZED BY I| 
3 CALLING DRSINITIAL. } 
§ ; INISMBADP AND INISDRADP SHARE COMMON CODE AFTER THE TABLE OF ADAPTER I 
9 ; SPECIFIC CONSTANTS IS SELECTED AND STORED IN R8. : 
: : INPUT: Il 
3 R4 = nexus identification number of this adapter I| 
: r R1i- offset from beginning of SCB to correct SCB page for this adapter i 
6 : OUTPUTS: I 
38 3 ALL REGISTERS PRESERVED i 
9° I 
00000000'GF 17 9 ALONPAGD : JMP G* INISALONONPAGED i 
ts -ENABL LSB i 
‘ INISDRADP: 3 INITIALIZE DR32 DATA STRUCTURES i 
48 Il 
49 Il 
0 Il 
1 Il 
: Il 
Il 
5 i 
ll 
ll 
I 
ll 
l| 
ll 
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SOOO OCOCOCOCOCOCCOCOSCOSSOSOOSOOCOOOOSOSOSOOSOOCSOOOOOOOOO OOOO OOOOOOOOOOOOO wv 
Pee al al Atal Ab Ah ah Ah Ab Ab Ah Ab dh dh Ab let det el et let ded aed ee ie tee ek el ee ee tee ee dae dae ae ae tee ee et ee ee ee et et ee ee eee 
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ONNNNNINS OF FLL OWT TM MNOOWM SD DP PPP LLL LL LLLP PPP PPP PPL PPP LEE ESE 
ee ce em ee em ee em ee ee a ed ed od od 8 = = 8 8 = 8 8 4 2 8 3 2 


O7FF 8F PUSHR #2M<RO R1,R2,R3,R4,R5,R6,R7,RB,RI,RI0> ; SAVE REGISTERS 
58 0011'°CF MOVAL TAB Re. ; GET OR32 TABLE OF CONSTA 
59 O000'CF 9E 5 MOVAB vw BR RSI At R ADDRESS OF INITERRUPT SERVICE ROUTINE 
5A 0000" CF 5 MOVAB UA ORE INITTAL R10 : ADDRESS OF DEVICE INITIALIZATION 
28 3 BRB 10$ + JOIN COMMON CODE 
3 INISCIADP: : INITIALIZE C1 DATA STRUCTURES 
O7FF 8F BB 60 PUSHR wencRO R1,R2,R3,R4,R5,R6,R7,RB,RP R102 SAVE REGISTERS 
58 0015 CF DE 61 MOVAL TAB Re. ; GéT ¢1 TABLE OF 
59 OO00'CF «6:9 6¢ MOVAB uv ath Nt R + ADDRESS OF “Ini teRRUet AR ERVICE ROUTINE 
5A 0000" CF H 6 MOVAB w*C tS INITTAL R10 ; ADDRESS OF DEVICE INITIALIZATION 
13, 1 64 BRB 10s JOIN COMMON COD i 
68 INISMBADP: ; INIT MBA DATA STRUCTURES . 
7FF 8F BB 23 PUSHR #*M<RO,R1,R2,R3,R4,R5,RO,R7-RB-RI,RIO> ; i 
58 O00D'CF DE 7 MOVAL W*MBATAB,RS : GET MBA TABLE OF CONSTANTS a 
59 000° CE E 74 MOVAB W*MBASINT,RO + ADDRESS OF INITERRUPT SERVICE ROUTINE se 
SA 0000'CF = soO9E i MOVAB UMBASINITIAL. R10 + ADDRESS OF DEVICE INITIALIZATION a 
77; ; e 
4 3; Allocate and initialize Channel Request Block. . 
51 0048 BF 3¢ 80 MOVZWL #CRBSC_LENGTH,R1 ; SET SIZE OF CRB ” 
B6 1 BSBB  ALONPAGD + ALLOCATE SPACE FOR CRB e 


MOVB  #DYNSC_ADP,ADP$B_TYPE DE 
MOVL  § IDB$L_CSR(R9) ,ADPSL_CSR(R2); SET ADDRESS OF CONFIGURATION REGISTER 
MOVW R4,ADP$W_TR(RO) R/SLOT-16 NUMBER OF ADAPTER 

MOVZBW ADPTAB ATYPE(RB) = 


TT 

T THE ADAPTER TYPE 
ADPS$W_ADPTYPE(R 
MOVL R10 ,ADP$L_CRB(R2) i T 


CMPW ADPSW_ADPTYPE(R )WaTs_ch ; 


; YES, DO NOT CONNECT UP VECTORS 


08 
09 

10 

1} 

18 

14 
12 

1? 

18 
19 

0 

1 

§ ; Initialize adapter interrupt vectors in System Control Block. 
5 MOVL LS $CB,RO 
8 ASHL #9,R11,R5 

0 

4 

f 

8 


GET ADDRESS OF SCB 


50 0000000' 
53 8 Turn SCB page offset into byte offset. 


set to beginning of correct SCB page. 


F 1 
INIADP790 = ADAPTER INITIALIZATION FOR VAX 11990 “SEP-1984 00:56: AX/VMS Macro V04-00 Pa 3 1 
yo4-002 INISCIADP = BUILD ADP AND INITIALIZE CI 19-36-1382 90:38:9) SYSLOA.SRCJINIADP.MAR; 3 day S 
BA MOVW R1,CRBSW_SIZE(R2) : SET CORRECT SIZE P 
AA 6 88 : #OYNSC_CRB,CRBSB_TYPE(R2) ; SET CORRECT TYPE P 
6 DE 4 MOVAL CRBSL_QQFL(R2),CRBSL_WOFL(R2) =; INITIALIZE WAIT QUEUE HEADER R 
9% A 6 43 5 MOVAL CRBSL_WQFL(R2),CRBSL_WOQBL(R2) ; FLINK AND BLINK R 
0 226A $ MOVAB CRBSL INTD(R ),RO ; SET ADDRESS OF INTD AREAD R 
80 9F163c8B Fc 4 MOVL #*X9SFT63CBB, (RO) + : “'PUSHR “ERE R3,R4,R5>,JSB an’ R 
0 59 »D 4 8 MOVL  R9,(RO)+ + ADDR OF XXXS$INT ROUTINE R 
0 pds 054 CLRL (RO) + : CLEAR OUT UNNEEDED AREA B 
60 A D0 4 0 MOVL R10, (RO) ; ADDR OF XXXSINITIAL ROUTINE R 
8-8 31 MOVL  R2,R10 : SAVE CRB ADDRESS R 
$8 3; Allocate and initialize Interrupt Dispatch Block. : 
1 68 OA 95 ° MOVZBL ADPTAB_IDMie<TS(R8),R1 =: GET # OF IDB UNITS S 
51 00000088 9F41 OD 36 MOVAL @M#IDBS$C_LENGTHLR1],R1  : GET TOTAL $12 $ 
8 1 9 BSBB NPAGD : ALLOCATE SPACE FOR CRB S 
08 A 1 8 6 38 MOVW R1, IDBSW_SIZE(R2) ; SET STRUCTUR S 
OA A 09 ° a MOVB ots Ps ; AND TYPE CODE : 
68 98 056 01 MOVZBW ADPTAB_IDBUNIT.°>8),-  ; SET COUNT OF UNITS S 
OC A2 6 0¢ 1DB$W_ONITS(R2) S 
62 OOE4'CF44 D0 $ 0 MOVL W*SBICONFCR4), - ; SET CSR ADDRESS TO S 
04 IDB$L_CSR(R2) : START OF ADAPTER REG SPACE S 
2C AA 52 00 057 05 MOVL 2, = : SET ADDRESS OF IDB INTO CRB S 
7 06 CRESL_INTD+VECSL_1DB(R105 $ 
59 52 00 , 0 MOVL _R2,R ; SAVE ADDRESS OF IDB : 
; Allocate and initialize Adapter Control Block (ADP). : 
7 MOVZWL ADPTAS_ADPLEN(RB) ,R1 GET SIZE OF ADAPTER S| 
7 BSBW  ALONPA LLOCATE SPACE FOR CRB S| 
MOVW R1,ADP$W_SIZE(R2) SIZE OF S TURE S| 
: AND TYPE CO S| 
9 
9 
9 
9 
9 
9 
9 
9 
9 
A 
A 


Use low 4 bits of nexus number. 
COMPUTE ADDR OF 1ST VECTO 
; SAVE ADDR OF ADAPTER'S ae VECTORS 


pppeuroves 


: CONNECT VECTOR TO CRB CODE 
j SAME FOR 
); 


0100 ¢ 0 
1¢ P$L_AVECTOR(R2) 
6 5 DE MOVAL L_INTD+1(R10), (RO) 
40 A 5 DE VAL  CRBSL-INTD+1(R ) 4 (RO) 
0080 C 5 DE MOVAL CRBSL-INTD+1(R10), 8 (RO ; ALL FOUR 
00c0 CO 30 85 DE MOVAL  CRBSL-INTD+1(R19)-°192(RO): VECTORS 


: Continue with ADP initialization. 
20S: MOVAL CRBSL_INTD+1(R10), - ; SAVE SCB VECTOR CONTENTS IN ADP 


yas as a ab db db db Ab db db db Ab Ab Ab Ab Ab Ab Abb Abb b-dhb-dbuib bbb db db sh sh ah sh ah sb sh shea sh ah ab sh db ah sb sb ah al ab ah ah ah ah ahaha! 


COOOOOowWwWwWw®w 


>>> > PMO DW Qs nr Dewees HIG HW Oo ROS OOOO ONINID > soso me SIM LAO Dao OOD Ror 


ce ee ee ce ce ee lm el ce cee ce ee ce me ee me ee ce ee ee ee ee ee ee ed ee ed ed ed od 


— oo ww 
So >o — 
> >> 
~ forororye 
Oo 
i 
nm 
“ww Ourww > 
> _——fo 
i=] 33 CTODUIWw 
So ooooonm 
SOOOoOCOOCOOOOCOSOSGOSOCOOOO OOOO OOOOOOCOCOOCOOC OOOO OCOOOOOO OOOO OOOOOO 
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$s 
Ss 
$s 
S$ 
$s 
Ss 
T 
T 
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T 
T 
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- ADAPTER INITIALIZA T10N FOR VAX Migs 1 =SEB-1984 00: 56: 3 AX/VMS Macro V04-00 Page 34 
INISCIADP = BUILD ADP AND INITIALIZE C1 11-SEP-1984 SYSLOA. SRCJINIADP. MAR; 3 (14) 
CF 1939 ADPSL_MBASCB(R2) 
Q CF 1940 PUSHR #*M<R2,R3> ; SAVE SOME REGISTERS 
D D1 «1941 MOVL  R2,R5 + COPY ADP ADDRESS 
4 p D4 1946 MOVL  ADPSL_CSR(R2),R2 ; VIRTUAL ADDRESS OF ADAPTER 
09900 00'GF : D7 194 JSB G“MMGSSVAPTE CHK + ADDRESS OF SPTE THAT MAPS ADAPTER 
18 A 3 DD 1944 MOVL = (R3) ADPSL_MBASPTE (RS) ; SAVE CONTENTS OF SPTE 
BA 05E1 1945 POPR #*M<R2,R3> RESTORE REGISTERS 
38 AA D E 1946 MOVL RZ CREEL INTD*VECSL_ avpch10) - SET CRB POINTER TO ADP 
14 a9 p E7? 194 MOVL  R2, IDBS$L-ADP( ; AND INTO 108 
FAO" EB 194 BSBW ADPLINK = : LINK ADP TO END OF CHAIN 
Hh 132 3; Initialize adapter hardware. 
55 59 09 3EE 1936 MOVL : ADDRESS OF IDB 
54 65) OsCOOSF1 «195 MOVL 1D6s CSR(RS) DRESS OF CONF IGURAT ION REGISTER 0 
30 BA 16 05F4 1954 JSB acres cINTDevee $ Pon INIT 
O7FF 8F BA O5F7 1955 POPR « #*M<ROTR1R2,R3_RZ_RSRO~R7_RB_RI, RIO>e ORESTORE ALL REGISTERS 
05 O5F8 1956 RSB RETURN 
SFC 195 
OSFC 1958 .DSABL LSB 


wea ine MmeTiizarion rox vax Too peseeags Oe g6:H] AROS Merely me dl 


FC 7 -SBTTL INIS$KDZ11 
Fe 1398 
FC INPUTS: 
FC : Re - VA of next free system page 
FC ; R5 = VA of system page table entry to be used to map VA in R2 
4: ? : R4 = nexus identit cation number of this adapter 
FC 5 io OUTPUTS: 
FC BF : 
re 
eft Pan INI$KDZ11: 
05 OSFC 38 RSB ; Return to caller. 


~~ ' 
—— 


plea ifQGes MTA goon tor ee HCP, TESEEHIRG AOSTA AMES Seu Mba sO 


43 ad -SBTTL INISCONSOLE, init data structures for console 
FD : FUNCTIONAL DESCRIPTION: 
FD 2 3 This royt ine is executed only once, during system initialization. 
4 § ; It initializes the CRB and IDB for boot/console device. 
FD : This routine is called from INIT. 
FD 4 : INPUTS: 
FD 2042 : R3 --> DISK [CLASS] DRIVER DDB 
FD 2043 ; R4 ==> DISK ECLASS] DRIVER DPT 
FD 2044 : RS ==> DISK ECLASS] DRIVER UCB 
SFD 2045 : R6 ==> RPB 
FD 46 : R7 ==> ADP FOR EITHER A REAL DISK OR A PORT 
SFD 2047 : R9 ==> PORT DRIVER DPT (IF PRESENT) 
FD 48 : R10--> PORT DIRVER UCB (IF PRESENT) 
SFD 2049 : 
ub Spse i 
5FD 3 INISCONSOLE: : 
3FD 33 -ENABL LSB 
66 AB «o91Ss«*OS FD 056 CMPB = RPBS$B_DEVTYP(R6),- ; BOOTING FROM CONSOLE BLOCK 
40 8F 699 05 #BTDS$R_ CONSOLE ; STORAGE DEVICE? 
10 12 06 058 BNEQ LDCR : NO 
41534303 BF DO 0604 205 MOVL PAT CSA/@8+3 - : YES, SET DEVICE NAME 
14 a3 960A oes DDBS$T_NAME (R3) + COUNTED STRING 
60C 
57 D4 69¢ i CLRL = RT : CLEAR ADP POINTER 
54 a5 01 B80 06 7 MOVW  #1,UCB$W_UNIT(RS) : SET UNIT NUMBER TO 1 
0D 11 ei9 fe BRB FILL_CRB™ 
sit $3r 
614 7 + NOW BUILD THE AUXILIARY DATA BLOCKS (CRB,IDB) 
614 18 BLD_CRB: 

58 10 A7 00 0614 0 MOVL ADPSL CRB(R7),RB GET ADDRESS OF CRB IF ait EXISTS 
OE A7 O1 al 18 1 CMPW 2S s#ATS OBA, ADPSW ee, IS THIS A UNIBUS ADAPTER? 
3 13 061C j BEQL “CRB , ALLOCATE CRB 

0088 = 3 él ; BRw 1 » CRB/IDB ALREADY ALLOCATED 
¢ 1 5 FILL_CRB: 
00000000'°9F 16 06 } 6 JSB av INI$ ALLO: 60 ALLOCATE AND SETUP CR 
24 A2 9F163FBB BF 0 «(06 MOVL #*X9F163FBB> ERBSL _INTD(RE) ; SET PUSHR #*M<RO,...R5> 
62F 8 JSB avd INTO, TINTERAGGE DISPATCH 
38 A 7 00 f VL —«R7,, CRBSL_INTD+VECSL np cha) SET POINT ADP 
2 p 3 0 MOVL R2.R8 SAVE CRB POINT 
51 58 BF 6 209 MOVZWL #<{DBSC LENGTH#<B*4>>, R1: SIZE TO ALLOCATE FOR 108 
0 00°9F 7 9 JSB a# INISACONONPAG ; ALLOCATE I 
A 1 8 4 9 MOVW ar! 1DB$W SIZE (Re ) SET SIZE OF 108 
AA 9 4 9 MOVB apin C 168, 8. 1DBSB TYPE (R25; AND STRUCTURE TYPE CODE 
CA > 8 49 ? MOVL  R2,CRBSL_INTD+VECSL_IDB(R &) ; SET IDB INTO CRB 
66 A6 «60910640 209 CMPB = RPBS$B_DEVTYP(R6),- ; BOOTING FROM CONSOLE BLOCK 
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vara te INI CONSGLEN init data structures for co 11-SEP-1984 92: 36: i} SYSLOA.SRCJINIADP.MAR;3 ° 
40 i i ate #BTDSK. CONSOLE i § STORAGE DEVICE? 
50 O00000F0O &F 09 000 9" Es: 1 ADDL3 aE XESGL L sce #exF RO : YES, GET ADDRESS OF VECTOR IN SCB 
Ag DE 9 1 MOVAL CRBSL_I (RB), (RO)+ : SEI ADDR IN 1ST VECTOR 
6 908 OD 104 MOVAL CRE L =iyTbeeie BS CRO) : R IN ND VECTOR 
48 AB 9FI63FBB BF OD 105 MOVL FT63FBB,CRBSL_ INTD2(RBS ; STORE PU R #*M<RO...RS> 
6 1 § 3; JMP af at BN ND INT. DISPATCH 
50 ag 52 6/ 1 MOVL BSL INTD2+VECSL_ 1DB(R8) STORE ADDRESS OF IDB IN CRB 
2c BB OFC 74 21 : MOVL iF STORE IPR NUMBER OF CONSOLE INTERFACE 
678 1 acnasi oT foes cre) ; REGISTER AS DEVICE CSR ADDRESS 
211 18 119 BRB 
62 58 A6 00 aN 114 10$:  MOVL  RPBSL_CSRVIR(R6), - : SAVE BOOT eV ICE CSR ADDRESS 
67E 2115 1DB$ geared ; IN INTERRUPT DISPATCH BLOCK 
11 91 «067 116 CMPB ss WBTDSR_U + LOW ORDER BY TE ai ORIGINAL RO TELLS 
66 A 6 11 RPESB DEVI VPRO) : BOOT DEVICE T 
08 12 6 118 BNEQ 208 : IF NOT 8 BOOTING. FROM A UDA BRANCH 
0 ‘OF =SB A 0 0684 2120 MOVL  RPBSL_CSRVIR(R6) : COPY VIRTUAL ADDRESS OF UDA PORT CSR 
en with, 6 ( 1 -— a#B00$GB “SYSTEMID ; TO LOW ORDER LONGWORD OF SYSTEMID 
14 A257 v0 eae 1 : "WOVE Ee DP(R2) ; POINT IDB TO ADP 
50 1€ A6 ¢ 6 124 MOVZWL RPésu ROOBVEC(R6).RO =: GET USER SPECIFIED VECTOR 
A 12 0694 2125 BNE : BRANCH IF VECTOR SPECIFIED 
50 66 As A 0696 21 6 MOVZBL apese DEVTYP( RG) RO : ELSE GET DEVICE TYPE CODE 
50 FRFE* CES C 069A 21 MOVZWL W*BOOTVECTOR-2 RO} RO : GET DEFAULT INTERRUPT VECTOR 
50 108740 9& O6A0 21 : 30$:  MOVAB  @ADP$L_VECTOR(R7)(ROJ,RO: COMPUTE ADDRESS OF VECTO 
9E 6A 3 MOVAB CRBSL_INTD+2(R8),(RO)  ; SET ADDR OF INTERRUPT VECTOR 
bene $139 1008: , 
05 a3 138 " — RSB ; RETURN 
06 139 .DISABLE LSB 
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: -SBTTL EXESINI_TIMWAIT = COMPUTE CORRECT TIMEWAIT LOOP VALUES 
FUNCTIONAL DESCRIPTION: 
XESINI ge) LRwaly waseren Sang A. $GL_TENUSEC ene gxeset UBDELAY, cells used 
n the Eime-wait ros. irst data cell L-TENUSEC, 5S o ihe n number 
of times the liorte "9, leas Meatl be executed din a yoiee 
done once here to calibrate the loop instead of reading the pr anaes ctech. 
The resulting number is used in the system macros TIMEWAIT and TIMEDWAIT. 
The ag ater is to initialize EXESGL_UBDELAY. If the bit test instruction 
in the TIMEWAIT macro is executed too rapidly in a loop, it can saturate the 
Unibus. +t he UBDELAY is used to introduce a 3 microsecond delay loop into 
the TIMEWAIT bit test Loop. 
This routine is called only once, from INIT. 
INPUT PARAMETERS: 

NONE 
IMPLICIT INPUTS: 


Ray | processor clock. 
Interval timers. 


OUTPUT PARAMETERS: 
RO - Destroyed. 
IMPLICIT OUTPUTS: 


EXESGL_TENUSEC = set to appropriate value to make TIMEWAIT and TIMEDWAIT 
macros loop for 10 micro-seconds. 


EXESGL_UBDELAY = set to appropriate value to make TIMEWAIT and TIMEDWAIT 
pecees loop for 3 micro-seconds in the unibus delay 


EXESINI_TIMWAIT:: 3; Initialize time-wait data cells 
ENABLE LSB 


F953" 30 BSBW CAS a5 : Initialize and enable cache. 
19 00 ODA MTPR #0, #PR790$_NICR : Initialize next interval count register. 
7E 00004520 8F p0 MOVL #20000 ,-(SP) 3; # of times to execute timed Loop. 
1 11. =~DA MTPR #*xii ,WPRS_ Iccs ; Start clock, no interrupts. 
; # # # start of loop fe time * * * 
FD 6E «OFS los SOBGTR (SP),10$ ; Delay Loop. 


“s * end of loop to time * * * 
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v04-002 EXESINI_TIMWAIT = COMPUTE CORRECT TIMEWA 11-SEP-1984 16:29:1 SYSLOA.SRCJINIADP.MAR; 3 (15) 
BD 1 
3 
50 1A 0B : MFPR #PR790$_ICR,RO ; Read total time to execute loop. 
18 98 DA i § MTPR 4 a Aces ; Shut off clock. 
O00000000'GF  O000EA60 8F C7 C DIVL3 RO,#60000,G*EXESGL_UBDELAY; Calculate mugber of times through 
00000000'GF 06 oct 8 INCL G*EXESGL_UBDELAY : loop to delay 3 microseconds. 
ep 3 
4 i 
19 00 ODA é 43 MTPR #0, #PR790$_NICR ; Initialize next interval count register. 
50 00004E20 8F D0 oe rt MOVL #20000 ,R0 ; Number of times to execute test loop 
6—E Q0000000'GF 00 Oé6DF 4 MOVL GrEXESGL UBDELAY,(SP) ; Get delay loop iteration count. 
18 11. ODA vES 8 MTPR #°X11,#PRS_ICCS ; Start clock, no interrupts 
Roce 29 ; tee Start of Loop §9 time ‘ 
QO0006F7"EF 8000 8F 83 06E9 1 20$: BITw  #*x8000,40$ ; Random BITx instruction to time 
03 ig 6F2 26 N 40$ 3; Random conditional branch instruction 
FD of F ders 53 30$: SOBGTR (SP),30$ ; Delay 3 microseconds. 
EF 50 F5 O6F7 2254 40$: SOBGTR RO,20$ > Loop 
Bora 55 ; **#* End of loop to time 
6FA 56 
6FA 60 
ora 
50 1A DB O6FA 5 MFPR #PR790$_ICR,RO 3; Read total time to execute loop. 
18 00 DA O6FD rg MTPR #0, #PRS"ICCS : Shut clock off 
3 D5 0 + 7 TSTL (SP) + ; Pop delay loop index off stack. 
00000000'GF  00030D40 BF 5 C7 070 74 DIVL3 RO,#200000,G*EXESGL_TENUSEC ; Calculate number of times to 
00000000'GF 6 O70E f3 INCL  G*EXESGL_TENUSEC > execute the loop to kill 10 u-secs. 
714 78 ; 
oie 8 3; Store the TIMEDWAIT values calculated with cache enabled in the BOOTDRIVR 
ay, i 3; TIMEDWAIT cells. 
"GF 714 ’ MOVL G*EXESGL_RPB,RO ; Get address of RPB. 
= me ‘ rt 718 : MOVL RPBSL_IOVEC(RO) RO ; Get address of BOOTDRIVR 1/0 cells. 
00000000'GF D0 ali § MOVL GPEXESGL TENUS te : Store TENUSEC value in BOOTDRIVR. 
00000000'GF D0 07 : 6 MOVL G*EXESGL_UBDELAY,- 3; Store UBDELAY value in BOOTDRIVR. 
42 AO ; 2 87 BQOSL_UBDELAY (ROS 
05 072F 90 RSB 3; Return 
0730 91 -DISABLE LSB 


a 
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mM 
x1 


1 
vax 1/700, 16-sep-1964 00:56:31 
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WAY 
NEGATIVE, THE SYSTEM WILL WAIT FOREVER. 
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74 61 64 20 64 69 6¢ 61 76 
65 6D 6 


= 


; INPUT PARAMETERS: 
NONE 
IMPLICIT INPUTS: 


OUTPUT PARAMETERS: 
RO,R1 = DESTROYED 


; THIS ROUTINE IS CALLED ONLY ONCE, FROM SYSINIT OR STASYSGEN. 
: IMPLICIT OUTPUTS: 


: PURE DATA 


TERM_NAMADR: 
ASCII \OPAO\ 

TERM_NAMSIZ = . = TERM_NAMADR 

TI TMERR- eASCIC Vineettde date/time\ 


TIME-OF-DAY PROCESSOR CLOCK. 


99 -SBTTL EXESINIT_TODR = SET SYSTEM TIME TO CORRECT VALUE AT STARTUP 
yr FUNCTIONAL DESCRIPTION: 
EXESINIT_TODR SOLICITS THE CORRECT TIME FROM THE age IF NECESSARY, 

4; CONVERTS THE ASCiIl RESPONSE TO BINARY ite ne AND a LLS AN INTERNAL 
2 3 ENTRY POINT OF THE SSETIME SYSTEM SERVICE TO SET THE NEW SYSTEM TIME 
$3 : IN MEMORY WITHOUT MODIFYING THE CONTENTS OF THE SYSTEM DISK. 
gi IF THE TIME WOULD NORMALLY BE SOLICITED FROM AN "a erttd BECAUSE 

; THE HARDWARE TIME OF YEAR CLOCK IS ZERO, THEN ba F YSGEN PARAMETER 
19 Hay IS CHECKED. IF IT IS ZERO, THEN IT IS ASSUMED THAT NO 
11 3 OPERATOR IS PRESENT AND THE SYSTEM [S$ BOOTED USING THE LAST TIME 
\¢ ; RECORDED IN THE SYSTEM IMAGE. IF THE PARAMETER IS NON ZER EN 
13 ; THAT TIME IS USED AS THE MAXIMUM un Me WAIT BEFOR ASSUMING THAT 
13 3 ; THERE IS NO OPERATOR AND BOOTING ANY - IF THE PARAMETER IS 
1 . 
1? 
18 ; 
19 ; 


EXESGQ_SYSTIME - SET TO CURRENT TIME IN 100 NANOSECOND UNITS SINCE 
17-NOV-1858 00:00:00. 


; Stack storage offsets: 

TTCHAN = “x00 : CHANNEL FOR TERMINAL (LONGWORD) 
TTNAME = *X04 : STRING DESCRIPTOR FOR OPERATOR'S TERM 
TMPDESC = *X0C : TEMPORY STRING DESCRIPTOR (QUADWORD) 
INTIME = *X14 : INPUT TIME VALUE (QUADWORD) 

LINBUF = “XiC : INPUT LINE BUFFER (5 LONGWORDS) 
LINBUFSIZ = “X14 : (LENGTH OF LINE BUFFER IN BYTES) 


; DEVICE NAME FOR OPERATOR'S TERMINAL 
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EXe INIT_TODR = SET SYSTEM TIME TO COR 1 18: -SEP=1 1382 90: 36:7} SYSLOA.SRCJINIADP. MAR; 3 oe 14) 
11 0734 
33" if $386 veatnerioeaye NPROMPT 
54 GE 45 20 45 53 41 45 4C A 74 “ASCII <13><10>/PLEASE ENTER DATE AND TIM -MMM-YYY : 
20 44 4E 41 20 2 4 41 44 8 33 aS 133 neste Recall al tc stipereticish* copatten 
4D 4D 4D 20 4 44 ‘ 29 45 p 49 54 0755 
4D 4D 3A 48 48 20 59 2 %6 768 
00000 77A 58 NPROMPT=.-TIMEPROMPT=1 
FOR $32 
77A ef EXESINIT_TODR: : SET CORRECT TIME 
77A 6¢ “ENABLE LSB 
77C 8F 77A 236 PUSHR  #°M<R2,R3,R4,R5.R6,R8, Rd, »R10> ; SAVE REGISTERS 
E 30 C2 O77E 2364 SUBL  #4*12,SP SCRATCH STORAGE 
—E DO 0781 2365 MOVL =§ SAVE ADDRESS OF SCRATCH STORAGE 
04 A6 4060 «9A (0784 66 novzBL #TERM_NAMSIZ, TINAME (RG) SET SIZE aah OPERATOR'S TERM NAME AND 
08 AG FFAG CF 9 788 236 OVAB wW*TERR NAMADR, TTNAME + ai ;, PIC ADDRESS INTO TERM NAME DESC 
1¢ 00000000'GF 00° E , E 8 BBS S*#EXESV_SETTIME, ane xEseL _FLAGS, READY Ife: ; BR TO SOLICIT TIME 
796 2370 
796 2374 
536 $3n9 
50 1B 0B 796 bi MFPR — #PR790$_TODR,RO : GET TIME OF DAY CLOCK VALUE 
59 00000000'GF 50 c3 199 H SuBL3 RO. G*EXESGL_TODR.R9 : GET TOD DELTA TIME (10 MS UNITS) 
00830600 8F 59 D1 O7A3 2390 CMPL R9,#24%60*60*100 : CHECK FOR SETBACK OF ONE DAY 
06 «IE O7AA 91 BGEQU READTIME ; MORE. MUST SOLICIT TIME 
14 A6 7C O7AC 2396 SS: CLROQ INTIME (RO) > NULL ARGUMENT FOR EXESSETIME_INT 
00c7 31 rAP 97 BRW 00$ + RETURN TO CALLER 
res 99 READTIME: : SOLICIT TIME 
59 ps4 7B2 2400 CLRL = R9 : CLEAR A FLAG 
58 00000000'GF 32 0784 2401 CVTWL G*SGNSGW_TPWAIT.R8 ; PICK uP TIMEOUT WAIT INTERVAL 
14 14 0788 40¢ BGTR 8% : POSITIVE, WAIT THAT PERIOD ONCE 
0D 19 78D 4 ri. BLSS 7$ : NEGATIVE IS WAIT FOREVER 
50 00000000'GF 01 1 7BF i : ADDL3 #1,G*EXESGL_TODR,RO ; ZERO, SET TIME-OF-DAY CLOCK TO 
707 241 
ree Sus 
18 SO DA Ore? 4 : MTPR RO, #PR790$_TODR : KNOWN VALUE + 10 MSEC AND FINISH UP 
EO 11 O7CA 24 BRB 5$ : 
Fee $2 
58 14 DO O7CC 2434 78: MOVL  #20,R8 ; STARTING WAIT 
59 06 O7CF 2435 INCL R NEGAT - WAIT FOREVER 
7D1 24 6 8$: SASSIGN_S TTNAME (R6), TTCHANCR ) XN ASSIGN TO INPUT DEVICE 
DD 50 £9 O7DF 24 BLBC RO " = FALL BACK TO STORED TIME 
52. FF60 cf E rEg 4 : 10$:  MOVAB W"TIMEPROMPT., R2 : GET ADDRESS OF PROMPT STRING 
53 82 9A O7E? 24 BOvzeL ( ubEN NGTH 
7EA 2640 $alow s #0 wTTCHA AND READ TIME 
7EA 2441 » icl0s. READPROMPT! 108M. much Met, TIMED! 1OSM_CVTLOW>,- 
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EM TIME TO COR 19a SEp-1 98¢ 98:3 718 USYSLOA. SREJINIADP.MAR; 3 . 
DEAL_INIT_CODE: ; DEALLOCATE THE INITIALIZATION CODE 


It is the dut i hs last-executed, loadable initialization 


routine to make 
release the space they occup 


self and all other such routines disappear, ij.e., 
to non=paged pool. Each routine's 


vector 
must be disconnected, e.g., be made to point to the symbol, EXESLOAD_ERROR. 


Sete Ge Ge Ge Ge Ge Ge Ses 


OONAUE AIO OOO 


This means that new initialization routines should be added 
to this module in a particular order, not necessarily at the 
end of the module! 


«ENABLE 438 
MOVQ R2,-(SP) ; Save some registers 


First find the vectors that point to these initialization routines 


and reset them to point to E 


PPOOOOOOOOOOOOOOOOOOOO “mm 


POAOAUMION OD F&F DOOCOCOTW OWMM MMO OVID OA LF SOWIE WW DOWDOOOUIUIVIUIUIUIVILIUTIUIUILU? «§ | 1D 


“i 
Ww 
—9T 9900-90 9 $0" Toon wo 


DMNWWMOAOKOA— PW SH AAOWH 
MRP TM NII O NOP Hn" 
TR AAOM YS MF MM rn 


STAY_HEADER: 
00000000 met . LONG 


PUPP DIVLV LVI IV IV LV LULU LIVLIUIVPUSVSUSUSUSUSUSUSUSVSUSUSIST STIS IT ES EE 
w 
So 
wr 


HPP PAIN INI PONININPINIPININID) 2 OO SS SS QOOOOOCOCOCO 


ROOD NA MEAN OOD NAME WIN O OD NOUS WN OOO VOU Swine 


oe 


ESLOAD_ERROR. 


MOVA W*SYSLSBEGIN,RO ; Compute bounds of releasable piece: 
ADDL3 #<STAY_HEADER=SYSLSBEGIN>,RO,R1 ; starting and ending addresses. 
MOVAB G*EXESAL_LOAVEC ; Get starting address of vectors. 

MOVAB GPEXESLOAD, ERROR, R3 


Get end of vectors. 


CMP (R2) ,#A°X9F ; Is this JMP a# ? 
BEQL ty ; Br if yes, skip past it. 
CMPB (R2) ,#*Xx80 ; Is this a system space address 
BNEQ 40$ ; Br if no, assume it's a HALT instr. 
CMPL (R2),RO : Is address before the releasable 
BLSSU 208 ; _piece of memory? 6r on yes. 
CMPL (R2),R1 : Is address after the releasable 
BGTRU 20$ ; _piece of memory? 68r on yes. 
MOVAB G“EXESLOAD_ERROR,(R2) ; Reset this vector. 
ADDL #2,R2 ; Point past this vector. 
INCL Re ; Come here to point past JMP af. 
INCL Re ; Come here to point past HALT. 
CMPL Re R3 ; Past the end of the vectors? 
BLSSu _10$ ; Keep searching vectors. 
; Now release the memory to non-paged pool. 
MOVAB W*SYSLSBEGIN,RO ; Point to start of module 
MOVZWL &#<STAY_HEADER-SYSLSBEGIN>,R1 ; Length to vaporize 
BRW 50$ ; Br to code that is not released. 
-PSECT S$S$SINIT__END,PAGE ; PAGE’ SINCE 16-BYTE ALIGN IS NOT 
0 0,0 
-WORD <SYSLSEND-STAY_HEADER> 
BYTE BTN LORDS 
BYTE 
JSB aoe ; Just the smile on the Chesire cat 
mMOVa (SP)+,R ; Restore 
RSB ; Return. 


«DISABLE LSB 
END 
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NIADP790 = ADAPTER INITIALIZATION FOR VAX 11/790 


INI 16-SEP=198. 0:56:31 YAX/VMS Macro V04-00 Page 45 IN 
Symbol table 92866-1398. i 3§ i3 USYSLOA. SREDINYADP_MAR; 3 9 i?) ve 
EXESPOWERFAIL eereeeee =X OA MMGSSVAPTECHK aeeeenee XX OA 
EXESSETIME INT aeeeeeee =X (A NOT$_BUA s 1 
EXESTEST CSR aeeeeeee§ X OA NDT$-CI = 
EXESUBAERR_ INT eeeeeeee =X A NDT =pR3e = 
EXESV_SETTIME eeeeeeee = X OA NDT$_KDZ11 = 
FILL_CRB 1R A NOT$_MB 2 
FILL-IN_SCB f fe A NOT$_MEM1664N1 s 
GET_GEN-TYPE R A NDTS_MEM161 2 1 
GET" TYPE 140 R A NDT$_MEMI6NI s 1 
1DB$B_ TYPE : OA NDT$_MEM GEIL = 7 
IDB$C_LENGTH s 8 NDT$_MEM256E1U = 7 
1DB$L_ADP = 14 NOTS_FER @1 z 74 
IDB$L-CSR = 9 NDTS-MEMCS6NIL = 7 
1DB$W_SIZE = 000 90 NDTS_MEM2SONIU = 07 
IDB$W-UNITS = 0000000¢ NOTS_MEM4 I = 9000 
INISACLOC_CRB eeeeeeee = X OA NDTS_MEMGNI = 000 08 
INI SALONONPAGED eeeeeeee = X OA NDT$_MEM64EIL = 0000006 
INISCACHE aeeeeeee = X OA NOTSMEMOGEIU = 9000 68 
INISCIADP OOOO4FF R A NDT$_MEM641 = 0000 of 
INISCONSOLE OOOOSFD RG OA NDTS_MEM64NIL = 45444 
INISDRADP OOOO REA a OA NDT$_MEM64NIU = 0000006A 
INISIOMA B88 ! 0 RG OA NDTS$_MPM = 00000040 
INI$KDZ11 OOOOSFC R OA NDT$_MPM1 = 00000041 
INISL_IOAVECS 00000018 R 09 NDTS_MPM 2 9000068 
INISL_SCBVALS 4 R OA DTS_MP = 4444 
INISMBADP 0000514 R OA NDT$_SCORMEM = 80000001 
INI SMPMADP eeeeeere = X 06 DT$_UBO = HS aE: 
INISSCB 00000259 R OA NDT$_UB1 = 00000029 
INI SUBADP 000002CD R OA NDT$_UB = 0000002A 
INI SUBSPACE 00002A9 R OA NDT$-UB = 000000 8 
INIT_ROUTINES 0000000 R 06 NEXUSDESC 00000020 R 08 
INTIME = 00000014 NOSPT 4 9 R 08 
10$M_CVTLOW eeeeeeee xX OA NPROMPT = 00000033 
1O$M_PURGE aeenenee X OA NUMUBAVEC = 6000080 
1OSM- TIMED aeeeeeee XX OA NUMVECS = 0000000 
10$_READPROMPT eeereeee XX OA NUM_PAGES Bebe be R 04 
10$- WRI TEVBLK aeeeeeee = X OA NXT_NEXUS 06 9} BR OA 
10790$AL_ = 0000008 PA = 20020000 
10790$AL_1OACR = 00080000 PAMMSC_NEXM = 000 O00F 
10790$AL_ = 90 1 PAMMS$M_PAMADD = 3FF00000 
10790$AL_PERABS s 0 PAMMSS_CODE = 00000004 
10790$AL _PERNEX = 0000200 PAMMSV- CODE = 00000000 
10790$AL = 001000 PR$_CSTD = 0000001F 
10790$C_SBIA = 1 PRELICCS = i 
LF = A PR$_SID_TYP? 8 = 0 
L INBUF s 1C PR$_SID_TYP7 s O0¢ 
LINBUF S1Z = 14 PR$_SID_TYP? 9 2 001 
MAP_NEXUS 9 & A PRS$_SID-TYP79 = 4 
MAP-PAGES 4 R A PRE_S1D_TVPBNN = 

XREXUS = 0000004 PR$_SID_TYP $s = 
MBASINITIAL eeeeeeee =X OA PR$_SID-TYPUV = 
MBASINT eeeeeree xX OA PRS 1818 = A 

AT DR 08 PR790$_ICR 2 1A 

CHKSM_ = 1 PR790$_NICR = 13 
MCHK SM_NEXM = 4 PR? $“PAMACC z 4 
MMGS$GL_ SBI CONF terereee =X OA PR790$~PAMLOC z 41 
MMGSGL— SPTBASE eeeeeeer xX OA PR790$_TODR = 1B 


INILADP790 
iat table 


TESC_K 
PIESR VALID 


SBIA TS 
BIAS ~>1LOCMP 
SBIA UMRY 


SBIASL_ TMOADDRS 
SBIASL_UNJAM 


SBIASS_TYPE 
SBIASV_ TYPE 


SBICON 

33} ~eus.COdE 
sei-tinel™ 
SGNSGW_TPWAIT 
STAY_HEADER 
SW_BUS_CODE 
SYSSASSIGN 
SYSSBINTIM 
SV S$DASSGN 
SYSLSBEGIN 
SYSL 


TTNAME 
UBASINITIAL 
UBASINTO 
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Psect synopsis 18: oaty y 90:38'7h YOY SLOA. CRE IGNY ADP MAR: 3 Poy Ris 


brane eee mene eee eed 


! Psect synopsis ! 


i 


PSECT name Allocation PSECT No. Attributes 
» 8 «s 0 98 ( +} 0 ¢ 0.) NOPIC USR CON ABS _ LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS ( 80.) Q1¢ 1.) NOPIC USR CON ABS LCL NOSHR' EXE WRT NOVEC BYTE 
SSSINITSDATAO 74 ( #116.) ¢ ( §-3 NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
SSSINITSDATA1 0 ¢ of ( -) NOPIC USR CON REL LCL NOSHR' EXE RD WRT NOVEC BYTE 
Ses INI TEDATAG A ( 58.) 04 ¢ 4.) NOPIC USR CON REL LCL NOSHR EXE AD WRT NOVEC BYTE 
SSSINITSDATA 0 ( -> Q&S ¢ 5.) NOPIC USR CON REL LCL NOSHR EXE’ R&D WRT NOVEC BYTE 
SSSINITSDATAG 46 ¢ 116.) $ ( §-} NOPIC USR CON REL LCL NOSH EXE RD WRT NOVEC BYTE 
SSSINITSDATAS 990 ( 0.) ( -) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
SSSINITSDATA 4 F ( 831.) 08 ¢ 8-3 NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 
SYSLOA 00 gas es a 9( 9.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC L 
SSSINITSCODE QOOOO8EB ( 2283.) BA ( 10.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC QUAD 
SSSINIT__END 0000016 ( 2.) B11.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC PAGE 
fos neamannan wees eneeocaewes + 
; Performance indicators H 
Phase Page faults CPU Time Elapsed Time 
Initialization 36 80 +80 :00..0% 00:00:00.88 
Command processing 128 0:00: 9-90 83: 0:03.78 
Pass 584 00:0 215.14 0:00: 8-0 
Cony Sareea 342 00:00:04.8 09:00; 48.56 
ass 00:04. :00:18. 
Symbol table output 36 $°5 :00.19 SS SEG SE 
Psect synopsis output 4 0:00:00.03 8820: 0.04 
Cross-reference output 8 0:00: 9-99 BH 88 «80 
Assembler run totals 113 0:00:22. 00:01:28.0 


The working set as was 2400 pages. 

149851 bytes (293 pages) of virtual memory were used to buffer the intermediate ggde. 

There were 100 pages of symbol table space allocated to hold 1837 non-local and 38 local symbols. 
y- source lines were read in Pass 1, prodye ings object records in Pass 2. 


pages of virtual memory were used to define macros. 


wee er eon Sere eee oe eee oe mass} 


+ 
H Macro Library statistics ; 


Macro library name Macros defined 

-$255$0UA28: SV SLOA 0012" Popes ALB: t 

_8255SDUA28: Ab A LIB.MLB;1 ¢ 
$255$0UA28: (SYSLIBJSTARLET.MLB; 2 

TOTALS (all Libraries) 39 


1979 GETS were required to define 39 macros. 
There were no errors, warnings or information messages. 
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VAX=11 Macro Run Statistics 19236621382 8:38:78 SYSLOA.SRCJINIADP.MAR; 3 <t dh, 
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